tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу, используя
Написать программу, используя оператор while, для нахождения суммы любых 10 чисел вводимых с клавиатуры pascal abc
matvirucom80
2 19.09.2019 16:10
0
Ответы
ZhEnYa9911
08.10.2020 02:33
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
verunyabogachk
12.08.2019 06:30
Впиши комбинацию клавиш которая позволяет переключатся по открытым окнам...
marylps45
26.08.2019 05:50
Оли+с-о+ти-и= ора+к+п-па+но-р= за+к+см+ов-ас+е-зм+р= те+ми+т+р-им+а+д+т=...
Chevalier26
26.08.2019 06:00
Составить программу в pascalabc день программиста традиционно отмечается в беларуси в 256-й день года. число 256 (28 ) выбрано потому, что оно представляет количество различных...
liol456543
18.05.2020 18:02
Почему я не могу писать ответы на во...
Zaika20051
18.05.2020 18:03
Команда относительного смещения команда абсолютного смещения 1 сместиться в точку 2 сместиться на вектор...
Кари15142
18.05.2020 18:03
с компьютером, Windows 10.Идёт бесконечная Диагностика компьютера Не знаю что делать... +карантин... ...
lalka20022
18.05.2020 18:03
) https://photos.app.goo.gl/FrTtDgDasw2nARq26...
Milanami1
06.10.2019 11:01
Даны стороны прямоугольника а и б .найти его периметр p, площадь s и диагональ d....
katya050600
06.10.2019 11:10
Описать операторы ввода и вывода данных. ! )...
Lunit
17.02.2021 22:47
9. Побудувати графік функції: у 1/5-3. Знайти: а) нулі функції; б) значення аргументу, при яких функція набуває додатних значень; в) точки перетину з віссю Oy....
Популярные вопросы
Для пошива платья купили два куска ткани по одинаковой цене в первом куске...
1
Какое слово связано с финикией? - сатрап, пурпур, минотавр, рамяна, янцзы!...
2
Напишите эссе «в уголовном деле никто не осуждается в его отсутствии, а...
3
Яка італійська держава була лідером об єднання італії...
2
Учому полягає відмінність поглядів марксистів,більшовиків,з одного боку,і...
1
Берілген тақырыптың біреуімен xабарлама жаз. зат есім туралы не білдім?...
2
Дело промпартии что? ! дело промпартии что? что обвиняемые? в чем? вменялось?...
3
Нужно найти расстояние от киева до варшавы на карте с масштабом 1: 1200,...
3
Миша прочитал интересную книгу за три дня. в первый день он прочитал 15%...
3
Придумати фінал до трагедії ромео і джульєта...
3
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.