Если целое число м, введенное с клавиатуры, делится на целое число н, введенное с клавиатуры, с остатком равным 2, то вывести на экран целую часть от деления м на н, в противном случае - сообщение "при делении не равен 2"
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.
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
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.