Цикл с параметром паскаль  вывести  все трехзначные числа оканчивающиеся на 13;42

Цикл с параметром паскаль  вывести  все трехзначные числа оканчивающиеся на 13;42
Гость
Ответ(ы) на вопрос:
Гость
1) var i, x: integer; begin for i:=1 to 9 do    begin    x:=i*100+13;    write(x: 4)    end end. 2) var i, x: integer; begin for i:=1 to 9 do    begin    x:=i*100+42;    write(x: 4)    end end.
Гость
Program Thirteen_FortyTwo; var   i: integer;   s: string; begin   for i := 100 to 999 do   begin     str (i,s);     if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);   end end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы