Пожалуйста!!!! Срочно!!!! Даю 30 баллов!!!!!!!
Составить: метод решения, блок схему и программу на языке Паскаль.
1. Найдите сумму и произведение всех нечетных чисел от 1 до 20.
Составить: метод решения, блок схему и программу на языке Паскаль.
1. Найдите сумму и произведение всех нечетных чисел от 1 до 20.
More Questions From This User See All
Answers & Comments
var q,w,a:integer;
begin
q:=1;
a:=1;
while q<=20 do begin
w:=w+q;
a:=a*q;
q:=q+2;
end;
writeln(w);
write(a);
end.