• Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В

Ответы 5

  • или это Program z1; var i, n, m: integer; begin write('введите любое натуральное число: '); readln(n); for i:=1 to n do begin m:=m+i; end; writeln('сумма всех натуральных чисел не превышающих ',n,' - ',m); end.
  • var a,b:real; s,i,n: integer;beginreadln(a,b);n:=trunc(b);S:=0;for i:=(a) to n doS:=i+S;writeln(s);end.
    • Автор:

      korinmea1
    • 6 лет назад
    • 0
  • или Program zadacha1;var s,n : integer;begin writeln('Введите N'); read(n); s:=0; while (n<>0) do begin inc(s,n); dec(n); end; writeln('Сумма = ',s);end.
  • Они все подходят?)
    • Автор:

      kade
    • 6 лет назад
    • 0
  • попробуй этоProgram Summa;  var s,i,n:integer;        begin write('Введите n:' );readln(n);s:=0;for i:=1 to n do  if (i mod 2)<>0 then s:=s+i; writeln;writeln('Сумма нечётных чисел равна:',s);readln; {для паузы}end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years