Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,,);
writeln;
end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,,);
writeln;
end.
Задание 3:
Var n,k,i:integer;
begin
writeln(Введите N);
readln(n);
writeln(Введите K);
readln(k);
for i:=1 to n do
write(k,,);
writeln;
end.
Научитесь наконец писать разборчиво задания! Ничего не понятно!!!
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.