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

Дано число (A),если оно однозначное,То умножить его на 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

Вычислить сумму натуральных чисел,кратных 3,меньшую 100.Паскаль...

даны три числа(a,b и c) найти разность наибольшего и наименьшего из них...

Даны три числа(A,B и C),определите значения наименьшего из них...

Вычислить Значения Функции Паскаль. Срочно нужен ответ...

Составить 5 вопросов к 9-10 главе,произведение Убитый под Москвой...

Постройте график функций...

По заданному времени (T) Укажите время суток(утро,день,вечер,ночь)...

Найти стороны прямоугольника если одна больше другой на 14 см,а диагональ ровна ...

с клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на ...

с клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на ...

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

Helpful Links

Helpful Social