Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
НиколайВасильев
3 года назад
5
Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.Program Demofor1;Var S, P, I: integer;BeginFor I:=.. to .. doBeginWr
<span>Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.</span><span>
</span>Program Demofor1;
<span><span>Var S, P, I: integer;
</span>Begin
</span><span>For I:=<span>.. </span><span>to </span><span>.. do</span></span>Begin<span>Writeln<span> (‘Введите </span>число’);</span><span>
(P);</span><span>S:=S<span>+... </span>;
</span><span>End;
</span><span>Writeln<span> (‘ Сумма равна’,..</span>);
</span><span>End<span>.</span></span>
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Александр 10
[1.4K]
3 года назад
0
0
Program Demofor1;
Var S, P, I: integer; Begin
For I:= 0 to 9 do
Begin
Writeln ('Введите число');
readln(p);
S:=S+p ;End;
Writeln (' Сумма =', s);
<span>End.</span>
Отправить
Читайте также
Чем отличается электронная таблица от простой таблицы
septimka17 [139]
Эл. там только положительный заряд, пр. все зряды
0
0
2 года назад
Переведиет числа в десятичную систему счисления 101011101 и 11101101
Ролд6 [50]
101011101= 349
11101101= 237
0
0
3 года назад
Раскрась правильно карандаши в коробках,если известно что все надписи на коробках ложны(неверны)
elennas21 [3K]
Если написано что карандаши лежат слева направо то нодо положить с права налево
0
0
4 года назад
Почему, по вашему мнению, разработчики часто свободно распространяют недоработанные версии своих програмных продуктов?
МастерР
это они делают ради того чтобы деньги получать
0
0
3 года назад
Прочитать ещё 2 ответа
составить программу, запрашивающую оценки за контрольные работы по информатике и физике. если их сумма не менее 8, то на экране
vik7779
Задача во вложениях
0
0
4 года назад
Смотрите также:
Запишите результат операции -9 // 5.
9
·
1 ответ
Упростить логические выражения: а)А*В*неА*В+В б)(А+В)*(неА+неВ) в)А+А*В+А*С г)А+неА*В+неА*С д)А*(А+В+С)
7
·
1 ответ
Напишите программу, которая находит все цифры, которых нет в переданной ей строке. Входные данные На вход программа подаётся сим
5
·
1 ответ
Сложить и умножить в двоичной системе. 1) 101101+1011 2) 101011+1110 3) 111011110+111 4) 1011*110 5) 101101*101 6) 110101*1011
8
·
1 ответ
Составте программу которая выведит 5 целых чисел в диапозоне от 90 до 135
7
·
1 ответ
Надо написать реферат на тему виды компьютер
7
·
1 ответ
Помогите пожалуйста ,срочно , номер 30 !
7
·
1 ответ
Какова средняя скорость передачи данных (в Мбитах в секунду), если файл размером 15 Мбайт был передан за 5 сек?
7
·
1 ответ
1)Вывести в обратном порядке второе слово строки. Подсчитать количество букв в нем. 2) Составить программу для вычисления Т=(R/Q
13
·
1 ответ
Var a,b: integer; procendure proc(var a: integer; b: integer) begin b:=4; а:=6; b:=а+b; end; begin a:=2; b:=3; proc(a,b); writel
9
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!