цикл с параметром паскаль вывести все трехзначные числа оканчивающиеся на 13;42
Answers & Comments
Naissur
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.
Answers & Comments
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.