Program cosilka;
const dopvrem=0.6;
var
i:integer;
N:integer;
m:integer;
brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('Ответ:', brigada:3:1,''часов'':3);
End.
Подготовьте столбец А и строку 2
В ячейку B3 введите формулу =($A3*10+B$2)^2 и скопируйте в остальные
В примере это уже приготовлено
В строке формул увидите саму формулу
Такой пример уже был
N=2<span>ˣ (вместо степени x должна быть степень i), где N - кол-во учеников;
2ˣ=25;
при х = 4 - 2ˣ=16 (мало)
при х = 5 - 2ˣ=32
Из этого следует, что х=5
Ответ: 5 бит информации.
<span /></span>
1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
if (x=3) or (x=4) or (x=5) then writeln ('Весна');
if (x=6) or (x=7) or (x=8) then writeln ('Лето');
if (x=9) or (x=10) or (x=11) then writeln ('Осень');
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.
Вы в интернете посмотри готовое домашнее задание класс и писателя книги. там найдете