Var i,s:integer;
begin
for i:=10 to 99 do
s:=s+i;
writeln (s);
end.

ну или

var i,s:integer;
begin
i:=10;
while i<100 do begin
s:=s+i;
i:=i+1;
end;
writeln (s);
end.

0 0

3 года назад

Алгоритм вычисления значений функции F(n), где n натуральное число заданное следующим соотношением : F(1)=1 , F(2)=2, F(3)=3 F(n

Мария99

Ответ:

880

Объяснение:

F(1) = 1 ; F(2) = 2 ; F(3) = 3;

F(4) = F(1) · 4 = 1·4 = 4

...

F(11) = F(8) · 11; F(8) = F(5)·8; F(5) = F(2)·5

F(5) = 2·5 = 10

F(8) = 10·8 = 80

F(11) = 80·11 = 880

0 0

4 года назад

Написать программу в паскале. Входные данные : вводятся 4 числа, а, b, C, d Выходные данные : найдите все целые решения уравнени

Кристина20002

<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.

Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5

0 0

4 года назад

Помогите составить примеры по 3 примера Деклоративные и процедурные высказывания Я знаю что... Я знаю как...

aleksei266 [39]

Я знаю что сказать,я знаю что купить, я знаю что Одеть.

я знаю как решить , я знаю как построить, я знаю как одеть

0 0

4 года назад

Позвони объём текста подготовленного с помощью компьютера равен 15 байт сколько символов содержит этот текст​

Позвони объём текста подготовленного с помощью компьютера равен 15 байт сколько символов содержит этот текст