Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
Var C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
<span>end.
Сам такое недавно делал, только на КуМИР'е)</span>
1) мечта
2) надвигается шторм
3) счастливого плавания
а-22,000,044 б-4,222,242,0222 в-202,202,222,222 г-1,434,152
1. Метод кодирования
2. Графический
3. Декарт
4.Брайль
5. Код
6.Числовой
7.Схемы
8. Символьный
9.Кодирование
10. Шахматы
Сделаешь лучшим?