PascalABC:
varsum ,i :longint;beginfor i:=20 to 55 dosum:=sum+i*i;writeln(sum);end.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n < 0 then
begin
writeln('Я не разработал программ');
exit;
end;
write('Я разработал ', n, ' ');
case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;
end.
<span>Скорость = 28800 бит/с </span>
<span>объем информации= 60*30*100 = 180000байт = 1440000 бит </span>
<span>время -это объем разделить на скорость -то есть 1440000/28800= 50с </span>