1. Информатика
  2. Паскаль!Программа которая

Паскаль!Программа которая просит пользователя ввести количество человек,потом каждый пользователь вводит свой вес и программа выводит общий вес всех людей

antilopa20041 antilopa20041    3   27.01.2021 11:51    0

Ответы
вошл вошл  27.01.2021 12:00

Var

summ, n, i, k: integer;

begin

summ := 0;

writeln('Сколько в классе учеников?');

readln(n);

for i:=0 to n-1 do

begin

writeln('Введите вес ученика номер ',i+1);

readln(k);

summ:=summ+k;

end;

writeln('Вес всего класса = ',summ);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
532настя43510 532настя43510  14.12.2020 18:18
Вычислите ((1&1)v0)&(1vA)​...
SmokeSivunenko SmokeSivunenko  14.12.2020 18:19
Расположите последовательно действия в алгоритме чистки обуви: Расположите порядок следования всех 7 вариантов ответа без пробелов (пример: 3457621) 1 Намазать кремом обувь. 2...
поля875 поля875  11.04.2019 10:45
Вячейки электронной таблицы звнесены логические выражения: =или(и(а1 =-2; а1 =2); и(а1 10; а1 20))=и(или(а1=4; а1=5); не(d13))=не(и(а1=5; в1=5; или(с1=4; с1= надо...
Dmitry81 Dmitry81  11.04.2019 10:54
Составить мат.модель и блок-схему для решения системы уравнений. значение х вводится с клавиатуры: { х^2, если х 0 y = {х - 1, если х = 0 {2 * х, если х 0...
Dasulya21 Dasulya21  20.04.2020 11:20
с номерами 6, 7, и 8, на фотке, 9 класс информатика...
Pmogi111 Pmogi111  20.04.2020 11:20
ОЧЕНЬ НАДО ПОСМОТРИТЕ Из элементов массива С сформировать массив А той же размерности по правилу: если номер i элемента четный, то , если нечетный, то Аi=2Ci.​...
мам65 мам65  18.05.2020 16:02
Составьте программу, которая получает от пользователя трёхзначное число и выводит True, если сумма цифр числа -- чётное число и False в противном случае.Sample Input 1:617 Sample...
95308726 95308726  18.05.2020 16:02
Подсчитайте в переменной s сумму 15 первых чисел в последовательности 305/10; 296/10; 287/10; 278/10; 269/10 и так далее....
rom32кат rom32кат  18.05.2020 16:01
с заданиемКакое количество страниц в тысячах будет найдено по за коты...
КрохаДи КрохаДи  18.05.2020 15:57
Заполни пропуски в программе. Вывод на экран кубов чисел от 9до 6. var :integer; begin for m:= downto do writeln (m*m*m); readln; end....

Популярные вопросы