Вопрос по информатике:
Написать переменную для определения количества чисел кратных 3 и оканчивающихся на 6. (Pascal)
Пожаловаться
- 07.01.2018 01:38
- Информатика
- remove_red_eye 9464
- thumb_up 41
Ответы и объяснения 1
Program Test;
const size = 5;
Var num, counter, i: integer, mas: array[1..size] of integer;
Begin
for i := 1 to size do
begin
Write('Введите ', i, ' число');
Readln(mas[i]);
end;
for i := 1 to size do
begin
if (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) then
counter := counter + 1;
end;
Writeln();
Writeln('Ответ: ', counter);
End.
const size = 5;
Var num, counter, i: integer, mas: array[1..size] of integer;
Begin
for i := 1 to size do
begin
Write('Введите ', i, ' число');
Readln(mas[i]);
end;
for i := 1 to size do
begin
if (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) then
counter := counter + 1;
end;
Writeln();
Writeln('Ответ: ', counter);
End.
Пожаловаться
- 08.01.2018 06:08
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы