Регистрация
mlpfim2004
03.02.2023 03:09
Информатика
Есть ответ 👍

Написать программу вывода на экран натуральных чисел от 1 до 100
Pascal
заранее

112
445
Посмотреть ответы 2

Ответы на вопрос:

ТКУиК9ks11
ТКУиК9ks11
4,8(98 оценок)

var i:integer;

begin

for i:=1 to 100 do begin

write (i,' ');

end;

end.

gribovskayairi
gribovskayairi
4,7(85 оценок)

какой язык на тебе

var

in,out: text; i.j: integer; mas: array [0..4,1..6] of integer; begin assign(in1,'in.txt');

reset(in1); assign(out1,'out.txt');

rewrite(out1);

for i: =1 to 4 do

begin

for j: =1 to 6 do

read(mas[i,j]);

readln;

end;

close(in);

close(out);

end.

капец здесь отступы нельзя фиг

 

Популярно: Информатика