Var n,h,m,s:integer;
begin
write('n = ');
readln(n);
h:=n div (60*60);
m:=n mod (60*60) div 60;
s:=n mod 60;
write(h,':');
if m<10 then write(0);
write(m,':');
if s<10 then write(0);
writeln(s);
end.
Пример 1:
n = 86399
23:59:59
Пример 2:
n = 18125
5:02:05
Ответ:
sum = sum + i
Объяснение:
Телом цикла является тот кусочек кода, который заключен внутри оператора цикла (в данном случае - это for)
Не совсем понятно, что Вы имеете в виду под "работой с текстом".
Простейшая работа с текстом - это его ввод. Такую работу можно было делать уже на компьютере ENIAC, куда можно было в качестве клавиатуры подключить телетайп.
Если "под работой с текстом" Вы подразумеваете первый текстовый редактор, то считается, что подобным редактором был Electric Pencil, появившийся в 1975-1977 гг. для компьютеров Альтаир.
В 1963 году Айван Сазерленд представил первый в мире графический редактор и систему автоматизированного проектирования Sketchpad.
Первая компьютерная музыка была воспроизведена Джеффом Хиллом на компьютере CSIRAC,
в 1951-го года в Сиднее.
var a:array[1..20] of integer; i,arf,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.
,