Составить программу : ввести число Если оно кратно 10 разделить на 5 Если не кратно увеличить в 3 раза
88
ОТВЕТЫ
//Pascal
var N: integer;
begin
write(Введите число: ); readln(N);
if N mod 10 = 0 then writeln(N/5)
else writeln(N * 3);
writeln; readln;
end.
var N: integer;
begin
write(Введите число: ); readln(N);
if N mod 10 = 0 then writeln(N/5)
else writeln(N * 3);
writeln; readln;
end.
96
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Thordilmeena
Совокупность средств и правил взаимодействия пользователя с компьютером называют? ...
2019-01-18 05:41:18
Исаак
Диспетчеры архивов и программы архиваторов-это одно и тоже? ...
2019-01-18 05:41:09
Валентина
Придумайте загадки для понятий: телефон, стол, дискета, записная книжка, ...
2019-01-18 05:41:02
Gragar
Книга из 128 страниц на каждой странице 24 строки ...
2019-01-18 05:37:21