Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while i<10 do
begin
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
2. Repeat
var a,i,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
until i=10;
writeln('Среднее арифметическое = ',s/10);
end.
3. For:
var a,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
Пример:
a = 4
a = 6
a = 9
a = 7
a = 1
a = 3
a = 6
a = 5
a = 4
a = 8
Среднее арифметическое = 5.3
16 бит = 2 байта. 1024 байта = 1 килобайт.
10*160*32*2 = 102240 байт = 100 кб. Ответ: 2).