Да
Да
Да
Нет
Да
У всех, кроме Мячина, продажи больше плана продаж по отделу
4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
Program fff;
const n = 5; var a : array[1..n] of integer; i, max : integer;begin for i := 1 to n do begin a[i] := random(101); write(a[i], ' '); end; max := a[1]; for i := 2 to n do begin if not (i mod 2 = 0) then begin if (max < a[i]) then max := a[i]; end; end; writeln(); writeln(max); end.
Число (деление на 2) остаток
978 | 0
489 | 1
244 | 0
122 | 0
62 | 0
31 | 1
15 | 1
7 | 1
3 | 1
1 | 1
Записываем остатки в обратном порядке: 1111100010