Вопрос задан 07.05.2021 в 14:08. Предмет Информатика. Спрашивает Колесникова Мария.

Информатика паскаль 9 класс


Ответы на вопрос

Отвечает Тупиков Сергей.

На 4:

var i,x,oc:integer;s:real;

begin

 readln(x);

 s:=0;

 for i:=1 to x do

 begin

   oc:=random(5)+1;

   s:=s+oc;

 end;

 writeln(s/x);

end.

На 5:

var i,s,ch,min:integer;

begin

 s:=3;

 for i:=3 to 30 do

 begin

   s:=s+2;

 end;

 ch:=s div 60;

 min:=s-ch*60;

 writeln('Часов ',ch,' минут ',min);

end.

Последние заданные вопросы в категории Информатика

Информатика 08.05.2021 01:48 441 Filippova Arina.
Ответов: 1
Информатика 08.05.2021 01:08 352 Здравствуй Ева.
Ответов: 1
Информатика 08.05.2021 01:20 337 Корунец Аня.
Ответов: 2
Информатика 08.05.2021 01:28 259 Ветрова Віталіна.
Ответов: 1
Информатика 08.05.2021 01:06 301 Харюков Антон.
Ответов: 1
Информатика 08.05.2021 01:13 337 Добрева Аня.
Ответов: 1
Информатика 08.05.2021 01:06 333 Култыгин Роман.
Ответов: 1
Информатика 08.05.2021 01:34 306 Asimova Diana.
Ответов: 1
Информатика 08.05.2021 00:13 271 Федорак Марко.
Ответов: 1
Информатика 08.05.2021 00:06 281 Минаев Кирилл.
Ответов: 1
Предметы