Рисунок, схема, карта, фотография НЕ относятся к буквам:а);в);д).
относится к ГРАФИЧЕСКОЙ ИНФОРМАЦИИ!!!
1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
var x:=a+i*h;
var y:=cos(x)*sqrt(x);
Writeln(x:6:3,y:15:5)
end
end.
<u>Пример</u>Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580
Налево,налево,вниз, ,вниз,направо,направо,вверх,вверх,налево,налево,вниз, ,вниз,налево,
итак еще4 раза
С
D
B
C
Но это не точно, хотя, я немного сомневаюсь. Потому что должна знать, в какой программе это ввыполняется.