profile
Опубликовано 5 лет назад по предмету Информатика от modeste

Задача с циклом пока и до:

программа паскаль

Вычислить сумму первых 10 натуральных чисел?

  1. Ответ
    Ответ дан Programust
    var a,x:integer;
    begin
    a:=0;
    while a<=10 do
    begin
    a:=a+1;
    x:=x+a;
    end;
    writeln(x);
    end.
Самые новые вопросы