Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.
Program Test;
Var
x: integer; chas: real; str1, str2: string;
Begin
Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();
if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)
else
Writeln('Миша ляжет спать в 00:', x)
end
else
begin
chas := x div 60;
x := x mod 60;
if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')
else
begin
if (chas < 10) then
str1 := '0' + chas
else
str1 := '' + chas;
if (x < 10) then
str2 := '0' + x
else
str2 := '' + x;
Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;
End.
Повтор...потому что круг замкнутый, квадрат и цикл тоже, а повтор не замкнутый
Количество информации вычисляем по формуле:
I = log(2)N = log(2)16 = 4 бита