написать программку для вычисления суммы естественных чисел от 1 до 10.тремя

Написать программку для вычисления суммы натуральных чисел от 1 до 10.3-мя разными циклами (repeat ;while ;for n) на Pascal

Задать свой вопрос
1 ответ

var i,j,k,s:integer;

Begin

j:=0;

for i:=1 to 10 do

j:=j+i;

writeln('Циклом for=',j);

j:=0;

i:=0;

while ilt;10 do begin

i:=i+1;

j:=j+i; end;

writeln('Циклом while=',j);

j:=0;

i:=0;

repeat

i:=i+1;

j:=j+i;

until i=10;

writeln('Циклом until=',j);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт