Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить сумму N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)... Решение: S:=0; For i:=0 To N-1 do S:=S+(a+i*b); Может кто предложит более "красивое" решение? https://www.cyberforum.ru/ turbo-pascal/ thread290202.html	упорядочить массив по невозрастанию элементов 1 строки Turbo Pascal Дан массив O=}, i=1,10; j=1,10] упорядочить массив по не возрастанию элементов 1 строки. Добавлено через 1 час 13 минут помогите решить плиз
Turbo Pascal Подсчитать количество букв 'f', стоящих на четных местах На вход дается набор символов. Подсчитать количество букв 'f', стоящих на четных местах. Пример afff 2 fabc 0 https://www.cyberforum.ru/ turbo-pascal/ thread290194.html	Turbo Pascal Следующие буквы https://www.cyberforum.ru/ turbo-pascal/ thread290185.html На вход дается заглавная буква латинского алфавита. Выведите на экран без пробелов все заглавные буквы алфавита, стоящие после нее. Пример X YZ
Заменить элементы строк матрицы по правилу Turbo Pascal В матрице размером mxn заменить элементы строк по следующему правилу: 1-ый элемент остается без изменений, 2-ой заменяется на произведение 1-ого и 2-ого, 3-ий заменяется на произведение 1-ого, 2-ого и 3-его и т.д.	Turbo Pascal Найти произведение матриц Добрый день помогите пожалуйста в задачке даны две квадратные матрицы найти произведиение их .нужно вывести исходную матрицу у меня не получается что то ..хех.заранее благодарю .:Вот код program dsd; uses crt; var a,b,c:array of integer; n,n1,i,j,k,k1,s,s1,n3:integer; begin writeln ('wedi n'); readln (n); writeln ('wedi a'); https://www.cyberforum.ru/ turbo-pascal/ thread290164.html
Turbo Pascal Определить максимальный и минимальный элементы массива и поменять их местами проверьте правильно ли написала программу определить максимальный и минимальный элементы массива и поменять их местами uses crt; var i,b,min,max,m,n:integer; a:array of integer; begin clrscr; for i:=1 to 7 do https://www.cyberforum.ru/ turbo-pascal/ thread290162.html	Заглавная буква Turbo Pascal На вход дается строка. Определить, есть ли в строке хоть одна заглавная латинская буква. Если заглавная буква есть, выведите YES. В противном случае выведите NO. Пример aBc YES abc NO
Turbo Pascal Работа с Базой данных https://www.cyberforum.ru/ turbo-pascal/ thread290151.html ПОСТАНОВКА ЗАДАЧИ Создать базу данных, содержащую минимум 10 строк и 5 полей. База должна загружаться из текстового файла и сохраняться в типизированный файл. Интерфейс и вывод данных должны быть реализованы в графическом режиме. При создании полей Базы должны быть обязательно использованы следующие 5 типов данных: string, char, integer, extended, Boolean. Минимум по двум полям должна быть...	Turbo Pascal умножние столбиком 2-ух натуральных чисел в графическом режиме Ребят помогите пожалуйста с программой (умножение столбиком 2-ух введённых натуральных чиселв графическом режиме). https://www.cyberforum.ru/ turbo-pascal/ thread290142.html
Turbo Pascal Уточнить корень уравнения с заданной точностью уточнить корень уравнения (е^-x)-x=0 c точностью до 10^-4 методом итераций.Искомый корень расположен в интервале (0.5;0.7).	Turbo Pascal Найти сумму ряда с точностью E Найти сумму ряда с точностью E https://www.cyberforum.ru/ turbo-pascal/ thread290124.html

Bolotnik

0 / 0 / 0

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

Сообщений: 19

Вывести на экран все кратные числа заданным - Turbo Pascal - Ответ 1622417

06.05.2011, 20:03. Показов 1092. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Ребята помогите программу через процедуру записать
Даны натуральные числа А и В. Вывести на экран все кратные им числа.
Найти сумму цифр числа.

Pascal

program chetitre;
var x,y,z,m:integer;
begin
write('x = ');
readln(x);
write('m = ');
 
readln(m);
write('sovmestnie kratnie - ');
for y:=1 to x do
for z:=1 to m do
begin
if (x mod y = 0) and (m mod z = 0) then
if y=z then write(y,' ');
end;
 readln;
writeln;
end.

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

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.05.2011, 20:03

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

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

Вывести на экран все четырехзначные числа, кратные 1111
вывести на экран все 4х значные числа кратные 1111

Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]
Вот 3 задачки, помогите чем можете пожалуйста. 1.Вывести на экран все числа, кратные 2 и 3 из...

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

	06.05.2011, 20:03

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

06.05.2011, 20:03

Помогаю со студенческими работами здесь

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

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму
Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Добавлено через 5...

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

Вывести на экран все целые числа от а до b ,кратные некоторому числу с
Вывести на экран все целые числа от а до b ,кратные некоторому числу с

Наверх