Var n,M:integer; zar:real;
begin
write('ведите заработок бригады');
Read(M);
n:=7;
zar:=M/n;
write(zar);<span>end.</span>
Ответ:
1) 1
2) 1
3) 3
4) 4
5) 2
Про каждое писать будет целая статья, но ответы верные
Объяснение:
Если a > 1000 тогда a = a *0.85
в ином случае пишем сообщение что скидки нет
Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.
3 вариант ложь
Если сомневаетесь в своем решении, всегда можно открыть, например, эксель и быстренько себя проверить =)