Регистрация
iljarybackov20
28.12.2022 19:58
Информатика
Есть ответ 👍

Написать программу, которая определяет кратность числа 5, если число кратно 5, тогда приписать к этому числу 8 в конце и выдать на печать полученное число, если не кратно 5, то приписать 1 и выдать на печать

236
415
Посмотреть ответы 2

Ответы на вопрос:

tatanavolosnova1
tatanavolosnova1
4,5(20 оценок)
Var a: integer; begin   write('введите число ');   readln(a);   if a mod 5= 0 then a: =a*10+8       else a: = a*10+1;   writeln(a);   end. тестовое решение: введите число 125 1258 введите число 101 1011
daniilraubuhin
daniilraubuhin
4,8(46 оценок)

dim p, a, b

cls

print "введите длину   стороны а ="

input   а

print "введите длину   стороны b ="

input   b

print "введите длину   периметра р="

input   р

print "длина третей стороны =", p-(a+b)

end

Популярно: Информатика