Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program srednball;
var a,b,d : integer;
c : real;
begin
writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c: =(a+b+d)/3;
writeln (' srednii ball= ', c: 4: 2);
readln;
end.
2^i = n
2^i = 64
i = 6 бит.
ответ. 6 бит
b) 9 лет
2020=4
2011=4
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
Популярные вопросы