основание 2 | основание 8 | основание 10 | основание 16
100111 47 39 27
1101001 151 105 69
10111100 274 188 BC
11101010 352 234 EA
1. Если в документе имеются рисунки (изображения), то их нужно сжать, уменьшить в размере или уменьшить качество.
2. Если нет, то скорее всего поможет изменение размера текста.
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.
Форма представления информации
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.