Предмет: Информатика,
автор: shahi01
цикл с параметром паскаль вывести все трехзначные числа оканчивающиеся на 13;42
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
спасибо а можно так что бы получились 2 разные программы
Автор ответа:
0
спасибо большое ) выручили!
Автор ответа:
0
:)
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Литература,
автор: myrzabekovzhandos29
Предмет: Математика,
автор: shakirovdanial
Предмет: Математика,
автор: kulashjarkinbaevna57
Предмет: Химия,
автор: anna6796