Дано число (A),если оно однозначное,То умножить его на 3,если трехзначное раздел...

July 2022 2 2 Report

Дано число (A),если оно однозначное,То умножить его на 3,если трехзначное разделить на 3

HRAshton Var
   a: integer;
   b: double;

begin
   readln(a);
   b := a;
   if (a mod 10 = a) then
       b := a * 3;
   if (a div 100 <> 0) and (a div 1000 = 0) then
       b := a / 3;
   writeln(b);
end.

2 votes Thanks 4

Jshuqhush https://znanija.com/task/22712895 ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

Студэнt //прога на Pascal`e
var
a: integer;
begin
write ('Введите A: ');
readln (a);

if (a div 10) = 0 then write (a*3)
else if (a div 100) <>0 then write (a/3)
else write ('Это не трехзначное и не однозначное число');

end.

1 votes Thanks 1

Jshuqhush https://znanija.com/task/22712895 ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

Answers & Comments

vychislit summu naturalnyh chiselkratnyh 3menshuyu 100paskal

dany tri chislaab i c najti raznost naibolshego i naimenshego iz nih

dany tri chislaab i copredelite znacheniya naimenshego iz nih

vychislit znacheniya funkcii paskal srochno nuzhen otvet

sostavit 5 voprosov k 9 10 glaveproizvedenie ubityj pod moskvoj

postrojte grafik funkcij55d8539250e7128253bb6867c5254bfc 75956

po zadannomu vremeni t ukazhite vremya sutokutrodenvechernoch

najti storony pryamougolnika esli odna bolshe drugoj na 14 sma diagonal rovna

s klaviatury vvodetmya massia iz n celyh chiselsostavit programmu i vyvesti nae5837fe371f172a433dea5f680f99d14 76465

s klaviatury vvodetmya massia iz n celyh chiselsostavit programmu i vyvesti na

рекомендуемые вопросы

Helpful Links

Helpful Social