- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
3)
64×32=2048
2048×512=1.048.576 бит
1.048.576:8=131.072 байт
131.072:1024=128 Кбайт
Ответ:128 Кбайт
5)
79:2=39(остаток 1)
39:2=19(остаток 1)
19:2=9(остаток 1)
9:2=4(остаток 1)
4:2=2(остаток 0)
2:2=1(остаток 0)
Записываешь наоборот и получается 001111
Ответ:001111
4)
бабочки | грибы (7000) + бабочки & грибы (2000)= 9000
9000 - 5000 = 4000
Ответ:4000 страниц
const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.
Мне кажется что второе но это кому-как.
1,5 и 4 потому что X и У не могут быть одинаковыми