Информатика, опубликовано 09.01.2019 16:01
. 137 номер 20 баллов! ! нужно построить столбчатую и круговую диаграммы опираясь на объяснение . Каждый школьник ежегодно отдыхает в каникулы выходные и праздничные дни все оставшиеся дни школьнику положено учиться в соответствии с действующими на территории Российской Федерации и нормативными правовыми актами нерабочими праздничными днями считаются 1-5 января, 7 января, 23 февраля, 8 марта, 1 Мая, 9 Мая, 12 июня, 14 ноября, если нерабочий праздничный день приходится на выходной то представляется дополнительный нерабочий день.
Ответ оставил: Гость
1)program wk;
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 <>0)then p:=p*mas[i];
end;
Writeln(p)
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01