Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
____________________
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
_____________________
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
512=2^9 ---> 9 бит для кодировки одного символа
F = 4096*9=1024*4*9 бит =9*2^12 бит =4,5 *2^13 бит =4,5 Кбайт
ответ 4,5 Кбайт
Var
x, y, z: integer;
begin
writeln('Веедите значения x,y,z');
readln(x, y, z);
if z>(x+y) then
writeln('Решения нет')
else if z=min(x,y) then
writeln('Делать нчего не нужно')
else
writeln('Потребуется шагов: ', min(x, y)-z)
end.
OC Windows намного лучше ,у большинства людей он стоит ,на него выходит больше программ и игр ,а Linux какашка)
Вот, посчитал, задание не очень сложное, нужно просто понять где на что умножать/делить.