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.
1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.
2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.
3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.
4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.
5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.
6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.
7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.
8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.
9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.
10. хз что это.
Поскольку у меня ужасный почерк, расшифрую комментарии:
- Символ ≠ можно заменить на <>
- Выводом послужит логический результат сравнения переменной r со значением 2
Г) бит, байт, килобайт, мегабайт, гигабайт
512 байт = 512*8 бит
Для хранения 1 пикселя необходимо 512*8/(64*64) = 1 бит
Количество цветов = 2^1 = 2