Предмет: Информатика,
автор: tanyagromova9
если целое число М, введенное с клавиатуры, делится на целое число Н,
введенное с клавиатуры, с остатком равным 2, то вывести на экран целую часть от деления М на Н, в противном случае - сообщение "при делении ...на ...остаток не равен 2"
Ответы
Автор ответа:
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.
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
Предмет: История,
автор: olakvitochka34
Предмет: Английский язык,
автор: MrIsmoilkhon
Предмет: Алгебра,
автор: dimanson
Предмет: Алгебра,
автор: svetol