Вопрос по информатике:
Помогите! С клавиатуры вводятся 2 числа. Составить алгоритм и программу сравнения этих чисел.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.02.2017 16:39
- Информатика
- remove_red_eye 8699
- thumb_up 11
Ответы и объяснения 1
var i, p: integer;
M: array [1..4] of integer;
begin
writeln('Введите 4 числа: ');
for i := 1 to 4 do
readln (M[i]);
p := 0;
writeln('Четные числа кратные 3:');
for i := 1 to 4 do
if (M[i] mod 2 = 0) and (M[i] mod 3 = 0) then
begin
write (M[i], ' ');
inc(p);
end;
if p = 0 then write('Таковых нет');
end.
- 24.02.2017 18:07
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.