Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC в исходном файле дана матрица 5 на 5 из целых чисел в исходном файле дана матрица 5 на 5 из целых чисел.в результируемый файл переписать удвоенное произведение отрицательных чисел. положительные заменить на нули/ https://www.cyberforum.ru/ pascalabc/ thread1034124.html Pascal ABC ввести с клавиатуры 1 символ. вывести на экран ASCII код этого символа
Пример 1 ввод W вывод 87 пример 2 ввод + вывод43 пример 3 ввод L вывод 76
Pascal ABC Блок-схема Здраствуйте форумчане, помогите сделать блок-схему к этой программе, заранее благодарен! Program ekzamen; uses crt; //подключенный модуль const n=8; //константа type Price=record //запись tovar: string; //поля записи mag: string; stoim: string ; end; var https://www.cyberforum.ru/ pascalabc/ thread1034104.html Pascal ABC Дан список вещественных чисел. Написать функцию вставки списка самого в себя https://www.cyberforum.ru/ pascalabc/ thread1034059.html
Здравствуйте, надеялся зделать все сам, но что-то не идет у меня тема "Динамические структуры данных". Дан список вещественных чисел. Написать функцию вставки списка самого в себя вслед за первым вхождением числа х. К примеру список 1.5, 2.5, 3.5, 4.5, 5.5, 6.5; x:=2.5; тогда новый список 1.5, 2.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 3.5, 4.5, 5.5, 6.5;
Вычислить экстремум функции Pascal ABC
Вычислить экстремум функции Y=a*(exp(ln(e)*(a*x)) - b*(exp(ln(e)*((- c)*x) если x изменяется от x0 к xm с шагом h. Функция имеет один экстремум. Для определения того, есть этот экстремум или максимумом или минимумом, можно использовать следующий способ. Вычислить два значения функции y1 и y2 . Если y1>y2, функция имеет максимум, в противном случае - минимум. Обчислити екстремум функції ...
Pascal ABC Составить программу ,которая из слов 'ИНФОРМАТИКА' и 'ТЕМА' выдает слово 'МАТЕМАТИКА' https://www.cyberforum.ru/ pascalabc/ thread1033965.html
составить программу ,которая из слов 'ИНФОРМАТИКА' и 'ТЕМА' выдает слово 'МАТЕМАТИКА'
Pascal ABC Вычислить количество элементов матрицы, которые равны среднему арифметическому Есть действительная матрица порядка n × m. Вычислить количество элементов, которые равны среднему арифметическому максимального и минимального элементов мартицей https://www.cyberforum.ru/ pascalabc/ thread1033956.html НОД или работа с большими числами Pascal ABC
Здравствуйте. Помогите с алгоритмом нахождения НОД(а,с), где 1<= а,с<=1018 . Как работать с такими большими числами? (Алгоритм Евклида я знаю) Где про это можно почитать? +лимит по времени 1 сек.
Pascal ABC Пояснить смысл метода Симпсона Помогите, пожалуйста понять смысл метода Симпсона и как его реализовать на Pascal ABC. https://www.cyberforum.ru/ pascalabc/ thread1033868.html Pascal ABC Составить блок схему к готовому коду Сделайте плиз к этой проге блок схемы! program karablik; uses graphabc,crt; var x,y,z,i: integer; begin SetWindowSize(840,640); SetWindowTitle('Êîðàáëèê'); //Ìîðå https://www.cyberforum.ru/ pascalabc/ thread1033850.html
Процедуры и функции для действий с строками. Задача Pascal ABC
В символьной строке удалить все нечетные числа, а четные числа взять в круглые скобки (например: начальная строка 'Abc18Cd056k-! B, 10', результирующая строка: 'Abc (8) Cd (0) (6) k-! B (0) '). Начальную строку вводить с клавиатуры; результирующую строку вывести под первоначальной.
Pascal ABC Типизированные файлы https://www.cyberforum.ru/ pascalabc/ thread1033803.html
Дана матрица 5х5, которая считывается с файла. Найти максимальный элемент в 3-ей строке и определить, в каком столбике он находится. Вывести этот столбик в файл по спаданию элементов. Данные вводить такие, что-бы в 3-ей строке не было 2 максимальных элемента (равные). Задача сделать типизированными файлами. Подправьте пожалуйста) var f1, f2 : file of integer; a : array of integer; ...
4 / 4 / 3
Регистрация: 07.10.2013
Сообщений: 16
09.12.2013, 11:06 0

Ввести с клавиатуры натуральное число A. Вывести на экран сумму всех чисел от 1 до A включительно - Pascal ABC - Ответ 5460682

09.12.2013, 11:06. Показов 4265. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
s,a,i:integer;
begin
readln(a);
s:=0;
for i:=1 to a do
s:=s+i;
writeln(s);
end.


Вернуться к обсуждению:
Ввести с клавиатуры натуральное число A. Вывести на экран сумму всех чисел от 1 до A включительно Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2013, 11:06
Готовые ответы и решения:

Ввести с клавиатуры натуральное число N (N<1000). Вывести на экран наименьшее простое число, которое больше чем N
Буду очень благодарен если решите задачу. В задаче нельзя использовать массивы , другие классы....

Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов)
Ввести с клавиатуры натуральное число X (X&lt;256). Вывести на экран двоичное представление этого...

Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N
Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту...

Ввести с клавиатуры 5 чисел и вывести на экран их сумму
Ввести с клавиатуры 5 чисел и вывести на экран их сумму. Помогите пожалуйста решить. Очень срочно!

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2013, 11:06
Помогаю со студенческими работами здесь

Ввести с клавиатуры целое положительное число и вывести на экран сумму его цифр
Написать программу, которая после ввода с клавиатуры целого положительного числа, выводит на экран...

Вывести на экран (исходное число ввести с клавиатуры) сумму цифр числа, больших 5
Здравствуйте. Нужна помощь с задачей, у меня не выходит. Если можно, решение с помощью массива....

Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность
Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их...

Ввести с клавиатуры массив из 10 целых чисел, посчитать сумму и вывести на экран
Ввести с клавиатуры массив из 10 целых чисел, посчитать сумму и вывести на экран

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru