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

Question

Информатика

Изабелла

27 марта, 08:42

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

+3

Ответы (2)

Знаете ответ на вопрос?

Декабрист · Answer 1

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.

Ильина · Answer 2

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.