1)
var
a, n, s: integer;
begin
write('n = ');
readln(n);
a : = 1;
while a < = n do
begin
s : = s + a;
a : = a + 1;
end;
writeln(s);
end.
2)
var
a, n: integer;
begin
write('n = ');
readln(n);
a : = 1;
while a < = n do
begin
writeln(2 * a);
a : = a + 1;
end;
end.
3)
var
a, b: integer;
begin
write('введите числа a и b: ');
readln(a, b);
while a < = b do
begin
writeln(a, '^2 = ', sqr(a));
a : = a + 1;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Как защищается информация в интернете?