Предмет: Информатика,
автор: egorber68
информатика паскаль 9 класс
Приложения:

Ответы
Автор ответа:
1
На 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.
kjg01026:
Помогите мне пожлуйста https://znanija.com/task/32091404
Похожие вопросы
Предмет: Музыка,
автор: RCAXAPO4EK
Предмет: Українська література,
автор: kak1cpat228
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: Ваня4213genius
Предмет: Математика,
автор: Ксюша5551111