Помогиииитееее!!!!на паскале1.Отыскать сумму первых 10 натуральных нечетных чисел.2.Найти

Помогиииитееее!!!!
на паскале
1.Найти сумму первых 10 естественных нечетных чисел.
2.Отыскать творенье натуральных чисел закончить подсчет при вводе 1.

Задать свой вопрос
1 ответ
Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while alt;gt;1 do begin
readln(a);
if a mod 2 lt;gt; 0 then begin
b:=b+1;
if blt;=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт