<em>// PascalABC.NET 3.2</em>
begin
var a:array[1..9] of integer;
var i:=1;
while i<=7 do begin
a[i]:=i*i+5;
a[i+1]:=Trunc(sqrt(a[i]));
a[i+2]:=a[i] div a[i+1];
i:=i+3
end;
for var j:=1 to 9 do Write(a[j],' ');
Writeln
end.
<u>Результат</u>
6 2 3 21 4 5 54 7 7
Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
Ответ:
Сколько слайдов? Почему именно на тему Гравити Фолз