Вопрос Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран, срочно! Это в паскале!

[Сергей097]

Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран, срочно! Это в паскале!

 

[adam1995]

УНИТ УНИТ1; ИНТЕРФАЦЕ УСЕС ВИНДОВС, МЕССАГЕС, СЫСУТИЛС, ВАРИАНТС, ЦЛАССЕС, ГРАПХИЦС, ЦОНТРОЛС, ФОРМС, ДИАЛОГС, СТДЦТРЛС; ТЫПЕ ТФОРМ1 = ЦЛАСС (ТФОРМ) БУТТОН1: ТБУТТОН; ЕДИТ1: ТЕДИТ; ПРОЦЕДУРЕ ФОРМЦРЕАТЕ (СЕНДЕР: ТОБЯЕЦТ); ПРОЦЕДУРЕ БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЯЕЦТ); ПРИВАТЕ { ПРИВАТЕ ДЕЦЛАРАТИОНС } ПУБЛИЦ { ПУБЛИЦ ДЕЦЛАРАТИОНС } ЕНД; ВАР ФОРМ1: ТФОРМ1; ИМПЛЕМЕНТАТИОН {$Р *.ДФМ} ПРОЦЕДУРЕ ТФОРМ1.ФОРМЦРЕАТЕ (СЕНДЕР: ТОБЯЕЦТ); БЕГИН СХОВ; ЕНД; ПРОЦЕДУРЕ ТФОРМ1.БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЯЕЦТ); ВАР И, С: ИНТЕГЕР; БЕГИН И: =10; С: =0; ВХИЛЕ И<=20 ДО БЕГИН С: =С+И; И: =И+1; ЕНД; ЕДИТ1.ТЕХТ: =ИНТТОСТР (С); ЕНД; ЕНД.

 

[ghjhgk]

Сам ты паскале

 

[Kitai]

Приветствую Данил, ответ вот здесь vk. cc/6mnnvh (уберите пробел)

 

[Whispering]

Re: Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран, сроч

[THIDE="0"]var
N: integer;
sum: real;

begin
write('Введите количество чисел: ');
readln(N);

write('Введите числа: ');
sum := 0;
for var i := 1 to N do
begin
var x := ReadReal;
sum += x;
end;
writeln('Сумма введенных чисел = ',sum);
end.[/THIDE]

Среда разработки - PascalABC, Количество элементов и сами элементы задает пользователь