Может недопонял. но вот что вышло: uses crt; var n,i,s: integer; begin clrscr; readln(n); for i: =1 to n do begin s: =s+i; end; writeln(s); readkey; end.
Ответ разместил: Гость
Василий-4 курс борис-третий курс пётр-первый курс николай-второй курс
Ответ разместил: Гость
1)это направление куда будут двигаться все обьекты
2)число равное тому сколько раз исполнитель повторит ваш алгоритм
Источник: vse-znaniya.com
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.число N вводится с клавиатуры.
Program sum
Var n,i,s: integer;
a:array[1..1000] of integer;
begin
Write (‘Vvedite n’);
readln(n);
Write(‘Vvedite n chisel’);
For i:=1 to n do
read(a[i]);
S:=0;
For i:=1 to n do
S:= S+a[i];
write(‘Summa ravna’, s)
end
Программирование на языке pascal нахождение суммы 2х чисел
Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: znatochki.ru
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных чисел и ищет их сумму.число N вводится с клавиатуры.
Program sum
Var n,i,s: integer;
a:array[1..1000] of integer;
begin
Write (‘Vvedite n’);
readln(n);
Write(‘Vvedite n chisel’);
For i:=1 to n do
read(a[i]);
S:=0;
For i:=1 to n do
S:= S+a[i];
write(‘Summa ravna’, s)
end
Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: urokilegko.ru