Program qq;
uses crt;
var c,h,m:real;
begin
write('Введите количество секунд ');
read(c);
m:=c/60;
h:=c/3600;
writeln('В ',c,' секундах ',m,' минут');
writeln('В ',c,' секундах ',h,' часов');
end.
А фото??????????????????????????????????????????????????
80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с
ну если будит так то:
1 ход. первый берёт 3 яблока второй тоже 3.
2 ход. первый берёт 2 яблока второй 3.
3 ход. первый берёт 3 яблока второй 2.
и последний ход. первый берёт 3 яблока а второй проигрывает.
Const
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!
Спасибо!