A, b, c, d, e = float(input()), float(input()), float(input()), float(input()), float(input())
average = (a + b + c + d + e) / 5
print(average)
Ссылка на код: https://pastebin.com/g94fmrMW
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>