Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal строки символов https://www.cyberforum.ru/pascal/thread189220.html
1)выяснить есть ли в последовательности S1...Sn пара смежных символов. 2)найти все слова в последовательности S1...Sn которые содержат в себе заданную комбинацию букв. 3)с поледовательности...
Вопрос по массиву. Pascal
Дан одномерный масив 20 элементов. Вводитса номер первого эл. в диапазоне, и последнего в диапазоне. задача: переместить этот диапазон в начало масива, а начало масива, на место диапазона в...
Нарисуйте блок схему пжлста ) Pascal
Вообщем сабж нужно начертить блок схему по такому заданию : нужно найти сумму пяти чисел кратных трём очень прошу , помогите :) Добавлено через 32 минуты плизз
Pascal Вопрос актуальный для всх !!! люди помогите составить программу разложения целого положительного числа на простые множители ???? https://www.cyberforum.ru/pascal/thread189207.html
Pascal вычислить длину биссектрис треугольника https://www.cyberforum.ru/pascal/thread189206.html
задали пару задач.....вот все никак не допишу их помогите пожалуйста...и если возможно пожалуйста с объяснением... 1)задано натуральное число. найти все его простые делители 2)вершины...
Матрицы и цыклы Pascal
помогите пожалуйста... 1)построить k первых строк треугольника Паскаля с биномиальных коэффициентов. 2)В матрице целых чисел А(5х5) найти индексы всех ее седловых точек. 3)проверить, создают...
Pascal год и столетие
Дан номер некоторого года. Вывести соответствующий ему номер столетия.
Pascal Магический квадрат (n mod 4=0) Мне нужно построить квадрат магический, нашел его код на форуме у вас . Но что-то не могу понять как он работает:( var i,j,k,p,l,i1,j1,x,y,n:integer; a:array of integer; begin ... https://www.cyberforum.ru/pascal/thread189183.html
Pascal ветвящиеся алгоритмы https://www.cyberforum.ru/pascal/thread189181.html
Написать программу, которая подсчитывает количество целых чисел среди трех заданных
Pascal Двумерный массивы Заполнить двумерный массив кубами натуральных чисел https://www.cyberforum.ru/pascal/thread189177.html
кот Бегемот
Платежеспособный зверь
8617 / 4034 / 1576
Регистрация: 28.10.2009
Сообщений: 10,615
10.11.2010, 21:24 0

Написать программу, которая запрашивает у пользователя отрицательные числа и считает их сумму

10.11.2010, 21:24. Просмотров 2790. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено пром как решение

Решение

Цитата Сообщение от пром Посмотреть сообщение
Написать программу, которая запрашивает у пользователя отрицательные числа и считает их сумму. Как только введено положительное число или ноль, программа завершается.
Pascal
1
2
3
4
5
6
7
8
9
10
var
a,s:integer;
begin
repeat
readln(a);
if a<0 then s:=s+a;
until a>=0;
writeln(s);
readln;
end.


Вернуться к обсуждению:
Написать программу, которая запрашивает у пользователя отрицательные числа и считает их сумму
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2010, 21:24
Готовые ответы и решения:

Написать программу которая запрашивает ряд чисел и считает их сумму
написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не...

Написать программу, которая запрашивает имя пользователя и здоровается с ним
1.Написать программу, которая запрашивает имя пользователя и здоровается с ним. program pr;...

Составить программу, которая запрашивает у пользователя два целых числа и выводит
Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы...

Написать программу, которая запрашивает данные на 2-ух учеников
Описать массив 50 элементов для учеников и ввести сведения для 5 учеников и вывести данные...

Написать программу которая запрашивает реальное число х и высчитавает р по формуле
написать программу которая запрашивает реальное число х и высчитавает р по формуле : р=х2+1...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.