В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
3asyavasilkova3
3asyavasilkova3
07.01.2023 03:59 •  Информатика

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

Показать ответ
Ответ:
Veratandashvili
Veratandashvili
05.10.2020 08:02
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.
0,0(0 оценок)
Ответ:
nshambulina
nshambulina
05.10.2020 08:02
//прога на 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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота