Ответ:
Объяснение:
var n,i:integer;
begin
write('Введите N ');
readln(n);
for i:=1 to n do
writeln(i,'^2= ',sqr(i));
readln;
end.
Если уж совсем просто, то:
var n,i:integer;
begin
write('Введите N ');
readln(n);
for i:=1 to n do
writeln(i*i);
readln;
end.
n = int(input())
k = int(input())
print("Каждому по ",k//n," ябл.")
Пример:
4
10
Каждому по 2 ябл.
Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>
Выделить первую ячейку и удерживая нажатой клавишу CTRL можно выделить и другие ячейки и удалить
1) 15,18,21,24... 2) -24. ,- 26