Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Проверить, входить ли в запись числа цифра 9 дано 4значное число N пероверить входить ли в запись числа цыфра 9 https://www.cyberforum.ru/ turbo-pascal/ thread271038.html	Turbo Pascal какая здесь структура , я непонимаю че ето такое PROGRAM kyrosvakrain; type arr=arrayof real; xrr=array of real ; var A:arr; x:xrr; g:real; procedure mas (var A:arr); var i,j,p1,p2:integer; begin p1:=1; i:=1;
Turbo Pascal даны 3 слова. Напечатать повторяющиеся в них буквы привет пацаны. помогите решить задачу)) даны 3 слова. Напечатать повторяющиеся в них буквы)) https://www.cyberforum.ru/ turbo-pascal/ thread271000.html	Turbo Pascal Выяснить, сколько положительныхэлементов содержит массив https://www.cyberforum.ru/ turbo-pascal/ thread270999.html Дано натуральное число n. Выяснить, сколько положительныхэлементов содержит массив А, если aij=sin(i+j\2) p.s. В задаче. буква 'а' где рядом стоит ij. ij- они должны быть меньше!!!
Заменить все элементы массива их квадратами Turbo Pascal Дан целочисленный массив А(1..4, 1..3) Заменить все его элементы их квадратами. p.s. скобки должны быть квадратными!!!	Turbo Pascal Введите массив из 20 элементов и определите, есть ли в нем элементы с одинаковыми значениями Введите массив из 20 элементов и определите, есть ли в нем элементы с одинаковыми значениями. https://www.cyberforum.ru/ turbo-pascal/ thread270994.html
Turbo Pascal написать программы на Turbo Pascal 1) найти суму членов геоиметрической прогрессии, если известны ее первый член, знаменатель и число членов прогрессии. 2)вычислить значение функции при различных значениях аргументов: z=cos x/(sin y* sin y), где x-изменяется от -2 до 4 с шагом 2, y- от 1 до 2 с шагом 0.5. https://www.cyberforum.ru/ turbo-pascal/ thread270978.html	Turbo Pascal Использование RECORD в Pascal'e Во входном файле дан список государств с указанием площади и их столицы. Австрия 84 Вена Бельгия 31 Брюссель Великобритания 244 Лондон Германия 357 Берлин Франция 544 Париж Италия 301 Рим Греция 132 Афины Дополнить этот файл пятью новыми записями с клавиатуры, чтобы получить следующее: Австрия 84 Вена
Turbo Pascal Операции с Разряженными Матрицами. Нужно написать прогу, которая будет выполнять разные действия с квадратной разряженной матрицой(NxN). Все элементы матрицы записаны в трех массивах. 1 массив это ненулевые элементы. 2 массив это столбцы ненулевых элементов. 3 массив используется для ссылки на компоненты 1 и 2 массивов с которых начинается описание очередной строки. Вот ссылка кто не понял что это такое:... https://www.cyberforum.ru/ turbo-pascal/ thread270968.html	Turbo Pascal Введите три числа.Если они могут быть длинами сторон равнобедренного треугольника.Вычислите длины его высот.Выведите длину основания и длины высот в п https://www.cyberforum.ru/ turbo-pascal/ thread270955.html Введите три числа.Если они могут быть длинами сторон равнобедренного треугольника.Вычислите длины его высот.Выведите длину основания и длины высот в порядке возрастания.
Turbo Pascal Вычислить значение функции G по формуле Вычислить значение функции G по формуле http://i19.***********/big/2011/0406/ee/aa19c1f05f9510e89507cb30f2972cee.jpg	Turbo Pascal строковый тип. https://www.cyberforum.ru/ turbo-pascal/ thread270931.html Даны натуральное число n, символы S1,... Sn. Будем рассматривать слова, образованные символами, входящими в последовательность S1,... Sn группы символов, разделенные одним или несколькими пробелами, назовем словами. -Удалить все слова с нечетными порядковыми номерами и перевернуть слова с четными номерами. Добавлено через 16 часов 55 минут помогите с задачкой(((( она не очень...

Qwark

21 / 21 / 21

Регистрация: 28.01.2011

Сообщений: 72

06.04.2011, 10:32

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму - Turbo Pascal - Ответ 1525052

06.04.2011, 10:32. Показов 9478. Ответов 2

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

uses crt;
var
sum,i:integer;
begin
clrscr;
sum:=0;
for i:=10 to 99 do
begin
if i mod 5=0 then
sum:=sum+i;
end;
writeln('Сумма чисел кратных пяти=',sum);
readln;
end.

Вернуться к обсуждению:
Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.04.2011, 10:32

Готовые ответы и решения:

Вывести на экран все двузначные числа,кратные 11 и найти их сумму
Знаю надоела) Вывести на экран все двузначные числа,кратные 11 и найти их сумму.

Вывести на экран все чётные числа от 1 до 100 кратные 5
Вывести на экран все чётные числа от 1 до 100 кратные 5.

Программа выводящая на экран все двухзначные числа кратные 12
Прошу помогите если не трудно,нужно создать программу выводящую на экран все двухзначные числа...

Вывести на экран все кратные тринадцати натуральные числа, меньше 100
Есть еще такая задачка на циклы. Вывести на экран все кратные тринадцати натуральные числа, меньше...

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	06.04.2011, 10:32
	Помогаю со студенческими работами здесь Вывести на экран все целые числа от 100 до 200, кратные трем Вывести на экран все целые числа от 100 до 200, кратные трем. 0

Наверх