Предмет: Информатика,
автор: fainanem
составить программу :
ввести число
Если оно кратно 10 разделить на 5
Если не кратно увеличить в 3 раза
Ответы
Автор ответа:
0
//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.
Автор ответа:
0
спасибо
Похожие вопросы
Предмет: Английский язык,
автор: kumykov2004
Предмет: Обществознание,
автор: Аноним
Предмет: Физика,
автор: Kemelhanoteniyaz
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: MozgiVselennoy