Среди двузначных чисел найти те,которые кратны 13. Как это сделать в ПАСКАЛЕ ??
Среди двузначных чисел найти те,которые кратны 13. Как это сделать в ПАСКАЛЕ ??
Гость
Ответ(ы) на вопрос:
Гостьprogram mdd;
uses crt;
var i:longint;
begin
clrscr;
for i:= 10 to 99 do
begin
if i mod 13 = 0 then writeln(i);
end;
readkey;
end.
Гостьprogram ххх;
var n : integer;
begin
for n:= 10 to 99 do
if n mod 13 = 0 then writeln(n);
readln;
end.
Не нашли ответ?
Похожие вопросы