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

2

Ответы и объяснения

  • Участник Знаний
2014-04-04T11:54:50+04:00
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.
спасибо а можно так что бы получились 2 разные программы
Можно))
спасибо большое ) выручили!
:)
2014-04-04T11:59:41+04:00
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.