INPUT "a="; a
INPUT "b="; b
FOR i = a TO b
s = s + i
n = n + 1
NEXT i
PRINT "Сумма:"; s
PRINT "Количество:"; n<span>
</span>
Мне кажеться что вариант 2, про дискету. Но это не точно, так как мы на инфе больше изучаем языки программирования.
Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
Я знаю что в середине XVI века - начало книгопечатания В России
Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.