Const
a:array[1..7] of string=('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
b:integer;
begin
read(b);
writeln(a[b]);
<span>end.</span>
Program asdf;
var a:array[1..10] of integer;
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i] mod 2 = 0 then b:=b+1;
writeln(b);
end.
256 000 бит/с : 8 = 32 000 байт/с - скорость в байт
32 000 байт/с : 1 024 = 31,25 кбайт/с - скорость в кбайт
31,25 кбайт/с * 41 с = 1 281,25 ≈ 1281 кбайт - размер файла
Ответ: 1281 кбайт
Продолжением ряда будет 16
так как идет цикл : от первого числа вычесть 5, ко второму прибавить 2, после опять вычесть 5 и т. д. !
Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5