Если целое число М, введенное с клавиатуры, делится на целое число Н,

введенное с клавиатуры, с остатком равным 2, то вывести на экран целую часть от деления М на Н, в противном случае - сообщение "при делении ... на ... остаток не равен 2"

Question

Информатика

Степуха

16 мая, 00:38

Если целое число М, введенное с клавиатуры, делится на целое число Н,

введенное с клавиатуры, с остатком равным 2, то вывести на экран целую часть от деления М на Н, в противном случае - сообщение "при делении ... на ... остаток не равен 2"

+4

Ответы (1)

Знаете ответ на вопрос?

Софроний · Answer 1

Var m, h, a:integer;

begin

Writeln ('Vvedite chislo m') ;

readln (m) ;

writeln ('Vvedite chislo h') ;

readln (h) ;

if m mod h = 2 then begin

a:=m div h; writeln ('celaya chast = ', a) ;

end

else writeln ('pri delenii ... "tut dopishi"') ;

readln;

end.