Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Написать пограмму использующие тип множества https://www.cyberforum.ru/ turbo-pascal/ thread281251.html
Дана не пустая последовательность слов из строчных русских букв: между соседними словами -запятая, за последним словом- точка. Напечатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово.
Turbo Pascal строки : В данном предложении выделите первую последнюю букву . Массив не использовать !
помогите пожалуйста массивы не понимаю :( решите задачу . задача на строки : В данном предложении выделите первую последнюю букву . Массив не использовать !
Turbo Pascal unit timer https://www.cyberforum.ru/ turbo-pascal/ thread281213.html
У мя турбо паскаль 7, free pascal упёрся на юните и всё тут, выкидыват ошибку. Встаёт на начале модуля "unit" и дальше не идет и выкидыват ошибку Error 113: Error in statement. - Ошибка в операторе не знаю уже много всего проверил !? :( помогите =), что, сделал не верно :wall: может я где-то туплю. program timer; var hour, min, sec, hund: longint; procedure x_timer; begin unit...
Turbo Pascal создание и откладка программ обработки динамически размещаемых данных Дан список, содержащий целые числа. Сформировать другой список из элементов данного, абсолютные величины которых являются простыми числами. помогите пожалуйста))))))))))))) https://www.cyberforum.ru/ turbo-pascal/ thread281208.html
Turbo Pascal Вычислить сумму n первых членов ряда с использованием цикла repeat
1.Дан ряд {a}_{k}=\frac{\sqrt{k}}{{k}^{3}+0.8}. Вычислить сумму n первых членов ряда с использованием цикла repeat. 2.Дан одномерный числовой массив. Вычислить сумму произведений всех троек соседних чисел.
Turbo Pascal текстовые файлы Дано целое число N и текстовый файл с именем Nаmе1, содержащий один абзац текста, выровненный по левому краю. Отформатировать текст так, чтобы его ширина не превышала N позиций, и выровнять текст по правому краю. Пробелы в конце строк удалить. Сохранить отформатированный текст в новом текстовом файле с именем Nаmе2 https://www.cyberforum.ru/ turbo-pascal/ thread281194.html
Turbo Pascal Представить дату(день,месяц,год)в виде записи. Представить дату(день,месяц,год)в виде записи. Даны 2 даты. Найти а) их года,б) их месяцы, в) поменять местами месяцы, выдать измененные даты. https://www.cyberforum.ru/ turbo-pascal/ thread281186.html Составить процедуру разбиения строки на слова Turbo Pascal
задание: составить процедуру разбиения исходной строки, состоящей из слов разделенных пробелами, на отдельные слова, которые будут являться массивом.элементами которого будут эти слова. для примера. исходная строка: "я изучаю паскаль" процедура должна выводить массив 3*1 : я изучаю паскаль
Turbo Pascal Определить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread281157.html
Определить значение функции z=f(x). Операцию возведения в степень реализовать в подпрограмме функции. Записать файл, записать результат в файл и вывести результат на экран. z=\frac{\sqrt{{({x}^{2}+\sqrt{x-y})^{2}}+{x}^{2}+\sqrt{x-y}}}{(y+tg x)sin x+cos x} x=0.253762 y=-1.28645 пожалуйста помогите кто может...
Turbo Pascal Массив совсем замучил В целочисленном массиве необходимо найти и вывести номера двух элементов, наименее отличающихся друг от друга. Вроде несложно, но неправильно - не могу понять, где ошибка program C2_19; uses crt; const N=5; var a: array of integer; i,j,min1,min2,s:integer; begin clrscr; https://www.cyberforum.ru/ turbo-pascal/ thread281152.html
Игра в графическом режиме Turbo Pascal
Уважаемые форумчане! Суть вопроса такова: пишу курсовую, тема - игра "Костяной покер" (кто играл в "Ведьмак", мб помнит, кто нет - http://cornplay.narod.ru/Dice/rules.html). Кто может подсказать какие-нить идеи для реализации повторного броска? Во вложении - то, что уже сделал.
Turbo Pascal Иосиф Флавий. Вот значит, в интернете нашел много кодов этой задачи, но ни один не работает нормально. можете помочь с поиском или разработкой понятного и работающего кода? https://www.cyberforum.ru/ turbo-pascal/ thread281140.html
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
21.04.2011, 18:37 0

Получить сумму тех чисел данной последовательности которые кратны 3 - Turbo Pascal - Ответ 1574726

21.04.2011, 18:37. Показов 1985. Ответов 7
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array[1..100] of integer;
i,s:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Полученный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
if (a[i] mod 3=0) then s:=s+a[i];
end;
writeln;
write('Сумма, кратных 3= ',s);
end.
Добавлено через 50 секунд
Не успел

Вернуться к обсуждению:
Получить сумму тех чисел данной последовательности которые кратны 3 Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2011, 18:37
Готовые ответы и решения:

Получить сумму тех чисел данной последовательности, которые кратны 7
Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности, которые кратны 5 - построить блок-схему
Здравствуйте! Помогите с построением блок схем! Спасибо! 1. Даны целые числа а1,…,а50. Получить...

Получить сумму тех чисел данной последовательности которые нечетные
Написать программы трех типов циклов на языке Pascal для следующей задачи: Даны первые десять...

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Даны натуральное число n, целые числа a1,...,an.Получить сумму тех чисел данной последовательности,...

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

Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны
Даны целые числа а1,…,а50. Получить сумму тех чисел данной последова-тельности, которые нечётны и...

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Хай всем. Помогите пожалуйста программу составить на следующих условиях: Даны целые числа a1..a50....

Получить сумму трех членов данной последовательности, которые кратны 5.
Даны целые числа A1,..., A20. Получить сумму трех членов данной последовательности, которые кратны...

Получить сумму тех членов данной последовательности,которые нечетные и отрицательные
Даны целые числа А1...А20.Получить сумму тех членов данной последовательности,которые нечетные и...

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