Предмет: Информатика,
автор: ZhyzhkoElzvt
Найти все четные числа, которые не делятся на 6 в диапазоне от 0 до N. Вывести их на экран
pusaxe:
паскаль?
Ох,да
Ответы
Автор ответа:
0
begin
readinteger('Введите N:').Range().Where(x -> (x mod 2 = 0) and (x mod 6 <> 0)).Print(',');
end.
Приложения:
Что-то короткая.И мы не учили"Print"
Внизу два файла там еще один вариант решения и бонус
Файлы,если честно не вижу
Они вроде только с компьютера видны
Посмотрю.Верю,что есть.Я выложу еще задачи.Если сможешь, поможешь?
Да
Смотрите
Одна из этих задач
Можно скрин файлов?
var
i, N: integer;
begin
write('Введите N:');
read(N);
for i := 0 to N do
if((i mod 2 = 0) and (i mod 6 <> 0)) then
write(i, ' ');
end.
i, N: integer;
begin
write('Введите N:');
read(N);
for i := 0 to N do
if((i mod 2 = 0) and (i mod 6 <> 0)) then
write(i, ' ');
end.
Похожие вопросы
Предмет: Английский язык,
автор: welterwelter704
Предмет: Математика,
автор: prianastasia907
Предмет: Математика,
автор: shasha201010
Предмет: Математика,
автор: AlinaBedoeva
Предмет: Математика,
автор: Alya111111111