Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В двумерном массиве поменять максимальный элемент в каждой строке с диагональным. https://www.cyberforum.ru/ pascal/ thread56635.html Помогите пожайлуста с программой.	Матрица Pascal Привет.Надеюсь на хотя бы чью-то помощь. Суть проблемы, в понедельник зачетная неделя в институте, а я так увлекса мат анализом, что совсем забыл что мне надо сдавать задачу по програмированию,...
Pascal Числовая прямая (массив) https://www.cyberforum.ru/ pascal/ thread56625.html На числовой прямой задано N точек. Расстояние между двумя точками вычисляется по формуле \|x - y\|. необходимо найти две самые ближайшие точки.	Pascal Методом деления отрезка пополам найти с точностью z корень уравнения Составить 2е задачи. Рекурсивные процедуры и функции. Описать рекурсивную функцию root(f, a, b, z), которая методом деления отрезка пополам находит с точностью z корень уравнения f(x)=0 на отрезке .... https://www.cyberforum.ru/ pascal/ thread56620.html
Pascal Подпрограммы и функции Составить 2е программы (процедуру и функцию) Составить программу, определяющую, в каком из данных двух чисел больше цифр.	Pascal перевод https://www.cyberforum.ru/ pascal/ thread56615.html помогите пожалуйста... Дана строка в восьми битовой кодировке, нужно, чтобы вывел текст этой строки на экран....
Pascal Считывание определенной строки текстового файла https://www.cyberforum.ru/ pascal/ thread56609.html Как с текстового файла считать строку с определенным номером? Нужно сместить файловый указатель? Подскажите какой функцией	Pascal Поиск максимума Программист Петя решил подготовиться к городской олимпиаде по программированию. Для этого он взял сборник олимпиадных задач по программированию и выписал типы задач, которые там оказались.Этих типов...
Pascal Олимпиада: работа с строками, масивами, цикли Вот плз решите парочку задач, если мож с коментариями: 1) Переставить цифры числа так, чтобы образовалось наименьшее число, записанное теми же цифрами 2) Среди тех строк целочисленной матрицы,... https://www.cyberforum.ru/ pascal/ thread56600.html	Pascal Вычислить K первых членов арифметической прогрессии https://www.cyberforum.ru/ pascal/ thread56587.html Народ,помогите решить задачку плиз!!!Очень надо!!!А задача следущая: Вычислить K первых членов арифметической прогрессии,заданных рекуррентной формулой: a=a+2,где a - n-ый член арифметической...
Pascal Полный квадрат. Задача Полный квадрат Имя входного файла: square.in Имя выходного файла: square.out Условие Полным квадратом называется такое число, которое является квадратом целого числа. Например, полным...	Pascal Файлы, записи. Дан файл Bibl,содержащий сведения о книгах. Сведения о каждой из книг-это фамилия автора,название и год издания.Найти названия книг данного автора,изданных начиная с 1960 г https://www.cyberforum.ru/ pascal/ thread56582.html

Давид

Программист 1С

859 / 647 / 187

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

Сообщений: 1,154

15.10.2009, 19:25

Вывести на печать элементы массива, кратные трем - Pascal - Ответ 307067

15.10.2009, 19:25. Показов 2540. Ответов 1

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

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

Решение

Sava250591,

#42.
Вывести на печать элементы x[1],x[2],...,x[n], кратные трем
(n<=50).

Pascal

program hhh;
Uses crt;
 Var x:array [1..50] of integer;
     i,n:integer;
begin
clrscr;
writeln ('Vvedite kol - vo elementov ne bolshe 50: ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Writeln (' Chisla kratnye 3 ');
For i:=1 to n do
  if x[i] mod 3 = 0 then write (x[i]:4);
Readln
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.10.2009, 19:25

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

Удалить из матрицы все элементы, не кратные семи, но кратные трем
Заданная матрица целых чисел размером (M, N). Удалить из матрицы все элементы, не кратные семи,...

Заменить элементы файла кратные трем
Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. Заменить...

Вывести на экран элементы массива, кратные 5, и их индексы
Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5, и их индексы.

Вывести на экран элементы массива, кратные 5, и их индексы
5. Дан целочисленный массив А. Вывести на экран элементы массива, кратные 5, и их индексы.

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.10.2009, 19:25

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

Вывести на экран все отрицательные элементы массива кратные 13
В эту тему я плохо "въехал", массивы и интервалы с ними, вопщем прошу написать ответ такой задачи:...

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива кратные 3 , кратные 5...

Вывести на печать элементы массива, стоящие на заданных позициях
Дан массив C = }, i=1,10; j=1,10 ]. Вывести на печать элементы, стоящие в позициях i >2 и j >4. ...

Ввести элементы одномерного массива размером 15 с клавиатуры и вывести на печать в столбик
Ввести элементы одномерного массива размером 15 с клавиатуры и вывести на печать в столбик.

Наверх