Предмет: Информатика, автор: tanyagromova9

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

Ответы

Автор ответа: ZaharovVasya
0
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.
Похожие вопросы
Предмет: Физика, автор: 10gon4ar199428
Предмет: Английский язык, автор: MrIsmoilkhon
Предмет: Алгебра, автор: dimanson