Компилятора нету,попробуй этот код
var
n,sum,a,b,c,i:integer;
begin
a:=0;
b:=1;
readln(n);//Посчитать сумму первых n чисел
for i:=1 to n do
begin
sum:=sum+a;
c:=a;
a:=b;
b:=c+a;
end;
writeln(sum);
end.
--------------------------------------------------
//Через repeat until
var
n,sum,a,b,c,i:integer;
begin
a:=0;
b:=1;
i:=0;
readln(n);//Посчитать сумму первых n чисел
repeat
sum:=sum+a;
c:=a;
a:=b;
b:=c+a;
i:=i+1;
until i>=n;
writeln(sum);
end.
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
1)
B2 = D1 - 1 = 5 - 1 = 4
C2 = A1 + B1 = 3 + 4 = 7
D2 = C1 + D1 = 2 + 5 = 7
C2 = D2, значит B2 = A2 = 4
D1 - A1 = 5 - 3 = 2 <> 4 | -
B1 / C1 = 4 / 2 = 2 <> 4 | -
D1 - C1 + 1 = 5 - 2 + 1 = 4 | +
Ответ: 3
2)
A2 = (C1 + A1)/2 = 3
B2 = C1 - D1 = 1
C2 = A2 - D1 = 3 - 2 = 1
По диаграмме понимаем, что D2 = B2 = C2 = 1
A1 - 2 = 3 - 2 = 1 | +
Ответ: 1
3)
A2 = 225 + 225 / 15 + 15 = 225+ 15 +15 = 255
B2 = A1 + A1/(B1-10) = 225 + 225/5 = 225 + 45 = 270
C2 = 1 + 1 =2
255 + 2 + 270 =527
<span>Место расположения: Екатеринбург
Дата открытия: 5 октября 2005 года
Материал, из которого он сделан: бетон
Описание внешнего вида: копия кнопок стандартной клавиатуры Windows, QWERTY-раскладка, в масштабе 1:30.
Графическое изображение: см вложение
Размеры: 16x4 м, высота 15 см
Автор: Анатолий Вяткин</span>