50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB 1
Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;
begin;
for m:=1 to 12 do
begin
write('В месяц ',m,' температура t = ');
readln(a[m]);
end;
s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;
writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);
end.
Если вы про имя, то у меня любое
хоть и такое:
<span>\ ⁄ ? : * " > < |
ОС: Linux
получается создать файл с \
если у кого стоит бубунту, то не нужно тут причитать, мол файл такой невозможен
максимальная длина - </span><span>???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Дистрибутив: Mageia</span>
1.19625 в двоичной системе счисления 100110010101001
2. 110 файлов , 120 файлов + папок
Begin
var c := 0;
var x := readinteger('Введите число:');
while x > 0 do
begin
x := x div 10;
c := c + 1;
end;
if(c = 3) then write('Да')
else write('Нет');
end.