Запросите у пользователя положительное число А и найдите сумму всех натуральных чисел из промежутка [1,A]

[white_angel73]

помогите составить программу! и если можно блок схему!...выглядит она так....



Запросите у пользователя положительное число А и найдите сумму всех натуральных чисел из промежутка [1,A]

спасибо за помощь заранее

[p51x]

Интересно, скоро будут спрашивать как посчитать 2 + 2?...

readln(a);
s := 0;
for i := 1 to a do s := s + i;

[ROMA2PVT]

program summation;
var
 i, summa,a:integer;
 Error: integer;
  begin    
   summa :=0;
 write('Введите натуральное числo: ');
repeat
read(a);
 If (a<0) or (Error<>0) then
	 Writeln('Число неверно задано! Повторите ввод!');
	 Until (a>=0) and (Error=0);
   for i:=1 to a do
    summa:=summa +i;
WriteLn('Сумма натуральных чисел из промежутка [1,A]: ', summa);
  ReadLn;
  end.

Вот программа.

[ROMA2PVT]

Интересно, скоро будут спрашивать как посчитать 2 + 2?...

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

[white_angel73]

нее не будем))
а вот это спрошу...еще одна програмка!



дан одномерный массив чисел. Найти сумму всех четных элементов массива, максимальный элемент и его номер, количества элементов, кратных трем.

[danaster]

var
a:array [1..100] of integer;
N,i,sum,max,x,krat:integer;
begin
randomize;
writeln (Введите количество членов массива');
\readln (N);

for i:=1 to n do begin
a[i]:=-100+random(201);
end;
max:=a[1];
for i:=1 to n do begin
if i mod 2 = 0 then sum:=sum+a[i];
if a[i]>max then begin max:=a[i]; x:=i; end;
if a[i] mod 3 = 0 then krat:=krat+1;
end;

writeln ('Сумма чётных элементов массива: ', sum);
writeln ('максимальный элемент: ',max,', его номер: ',x);
writeln ('Количество элементов кратных трём: ',krat);
end.

беда, но надо еще и написать 10 символов, чтобы отправить сообщение)

[Google2010]

Просто код над выделять тегами кода а не цитаты

[ROMA2PVT]

Просто код над выделять тегами кода а не цитаты

Блин лохонулся!Гы!Исправил.

[white_angel73]

составить программу, печатающую все простые числа, не превосходящие данного числа!

[p51x]

3 поста, 3 элементарные домашки..... мелеет форум (