<h2>Ответ:</h2>
Сумма всех чисел напечатанных на экране равна 35
<h2>Объяснение:</h2>
f(15) 15 - 2 = 13
g(13) Вывод: 13
13 - 1 = 12
f(12) 12 - 2 = 10
g(10) Вывод: 10
10 - 1 = 9
f(9) 9 - 2 = 7
g(7) Вывод: 7
7 - 1 = 6
f(6) 6 - 2 = 4
g(4) Вывод: 4
4 - 1 = 3
f(3) 3 - 2 = 1
g(1) Вывод: 1
13 + 10 + 7 + 4 + 1 = 35
Задание №1
1А. A := -5.7 - вещественная
1B. D := True - логическая
1C. C := 105 - целая
1D. D := 'Hello' - строковая
Задание №3
P = 11.4
A = 2.7
В = 3
P и A - точно Real
B - по логике задачи тоже должно быть Real: стороны вводятся в виде вещественных чисел, хотя ее можно объявить и как Integer, тогда при вычислении будет сделано преобразование к одному типу - Real
Var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Я плохой художник)
<em>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1. Современная запись</em>
begin
var n:=ReadInteger('n=');
(var s,var i):=(0.0,1);
while i<=n do (i,s):=(i+1,s+1/i);
Writeln('S=',s)
end.
<u>Пример</u>
n= 5
S=2.28333333333333
<em>2. Школьная запись</em>
var
i,n:integer;
s:real;
begin
Write('n='); Read(n);
i:=1;
s:=0;
while i<=n do begin
s:=s+1/i;
i:=i+1
end;
Writeln('S=',s)
end.
Алг Манхеттен
нач
вещ x, s
цел i
вывод "x =", нс
ввод x
s:=20
нц для i от 1627 до 2017
s:=s+s*x/100
кц
вывод "s = ", s
кон
