Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
Var
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.
Function y(x: real): real;
begin
if x < -1 then
y := 1 - 2 * x
else if x <= 2 then
y := 2 + x * x
else
y := abs(2 * x * x) + 1;
end;
function z(x, y: real): real;
begin
z := 2 * x / (48 - y * y) + 15 * sin(x);
end;
var
x: integer;
begin
for x := -10 to 10 do
writeln('x=',x, ' y=', y(x), ' z=', z(x, y(x)));
end.
1) для решения таких задач нужно посчитать кол-во символов в предложении, включая пробелы. получается 51 символ, умножаешь это число на 1 байт, и получаешь ответ: 51 байт
2) все то же самое) получается 9 байт, но такого ответа нет, переводим в биты, получается 72 бита, ответ: 72
3) не уверена в решении..