сервис вопросов и ответовСоставьте программу в паскале, которая находит наименьшее из чисел кратное 3.Количество чисел не меньше 1000.
10-11 класс|
|
ЛадаВишенка
04 февр. 2014 г., 0:33:35 (10 лет назад)
Anastasiya2001ira
04 февр. 2014 г., 2:46:05 (10 лет назад)
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
Ответить
Другие вопросы из категории
Изначально, задача была такая: На вход программы подается натуральное число. Требуется написать программу, которая определяет составное или простое число
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
Даша записалась на кружок рисования и первым ее заданием стало нарисовать красивые горы Алматы. В Алматы имеется N гор, в каждую можно представить в виде
равнобедренного прямоугольного треугольника с гипотенузой, расположенной на оси х. Даша ограничена в средствах, поэтому она хочет узнать точное количество краски, которое ей понадобится. Помогите Даше, найдите площадь гор, для того чтобы рассчитать количество необходимой краски
помогите пожалуйста.
Дан массив {Tij}, состоящий из n строк, l столбцов. Найти сумму положительных элементов, имеющих нечетный номер.
Какое значение будет выведено в результате исполнения алгоритма ?
Нач
к:=2; к1:=1; с:=59
Нц для I от 50 до 164
С:=с+к*I; k:=k+k1; k1:=-k1
Кц
Выаод с
Кон
Ответы 1) 30762 2) 30764 3) 30766 4) 30768 5) 30770
Читайте также
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
Вы находитесь на странице вопроса "Составьте программу в паскале, которая находит наименьшее из чисел кратное 3.Количество чисел не меньше 1000.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.