Напишите пожалуйста программу на языке Паскаль: Дано число. Если оно кратно 3, то увеличить его на 6, в противном случае обнулить.
Напишите пожалуйста программу на языке Паскаль: Дано число. Если оно кратно 3, то увеличить его на 6, в противном случае обнулить.
Гость
Ответ(ы) на вопрос:
Гостьprogram blunt; var x:word; begin write('Введите целое число = '); readln(x); if( 0 == (x mod 3) ) then x:=x+6; else x:=0; writeln('Результат = ',x); end.
Гостьuses crt; var x:integer;
begin
write('Число = ');
readln(x);
if x mod 3 =0 then x:=x+6 else x:=0;
writeln(x); readkey; end.
Не нашли ответ?
Похожие вопросы