Паскаль. Катя купила в магазине N груш. Сможет ли она разделить их поровну между K подругами (N и K ввести с клавиатуры)? Оператор цикла с предусловием Количество груш Количество подруг Ответ 12 4 да 14 5 нет
program DivideApples; var N, K, remainder: Integer; begin write('Введите количество груш: '); readln(N); write('Введите количество подруг: '); readln(K);
if N mod K = 0 then writeln('Да, груши можно разделить поровну между подругами') else writeln('Нет, груши нельзя разделить поровну между подругами'); end.
program DivideApples;
var
N, K, remainder: Integer;
begin
write('Введите количество груш: ');
readln(N);
write('Введите количество подруг: ');
readln(K);
if N mod K = 0 then
writeln('Да, груши можно разделить поровну между подругами')
else
writeln('Нет, груши нельзя разделить поровну между подругами');
end.