1) Составьте программу вычисления сумму чисел от 1 до 100.
2)Составьте программу вычисления произведения чётных чисел от 1 до 10.
3)Составьте программу вычисления количества двухзначных нечётных чисел.
Ответы
Ответ дал:
0
1) var s,i:integer;begin s:=0; for i:=1 to 100 do s:=s+i; writeln(s);end.2) var s,i:integer;begin s:=1; i:=2; while i<11 do begin s:=s*i; i:=i+2; end; writeln(s);end.3) var i,s:integer;begin i:=11; s:=0; while i<100 do begin i:=i+2; s:=s+1; end; writeln(s);end.
Ответ дал:
0
1) var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
2) var
s,i:integer;
begin
s:=1;
i:=2;
while i<11 do
begin
s:=s*i;
i:=i+2;
end;
writeln(s);
end.
3) var i,s:integer;
begin
i:=11;
s:=0;
while i<100 do
begin
i:=i+2;
s:=s+1;
end;
writeln(s);
end.
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
2) var
s,i:integer;
begin
s:=1;
i:=2;
while i<11 do
begin
s:=s*i;
i:=i+2;
end;
writeln(s);
end.
3) var i,s:integer;
begin
i:=11;
s:=0;
while i<100 do
begin
i:=i+2;
s:=s+1;
end;
writeln(s);
end.
Ответ дал:
0
та разберусь
Ответ дал:
0
Во
Ответ дал:
0
Спасибо
Ответ дал:
0
Если правильно понял условия то тут все правильно
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
9 лет назад