Предмет: Информатика,
автор: prufff
Помогите решить задачу по информатике по паскалю. Все четные числа из диапазона от А до В, кратные трём (А<=В)
Аноним:
Вопрос в чем?
Ответы
Автор ответа:
1
var
a,b,n:integer;
begin
Write('Введите нижнюю и верхнюю границы: '); Readln(a,b);
n:=a mod 6;
if n=0 then n:=a else n:=a+6-n;
Writeln('Четные числа, кратные трем из указанного диапазона');
while n<=b do begin Write(n,' '); n:=n+6 end;
Writeln
end.
Тестовое решение:
Введите нижнюю и верхнюю границы: 13 42
Четные числа, кратные трем из указанного диапазона
18 24 30 36 42
a,b,n:integer;
begin
Write('Введите нижнюю и верхнюю границы: '); Readln(a,b);
n:=a mod 6;
if n=0 then n:=a else n:=a+6-n;
Writeln('Четные числа, кратные трем из указанного диапазона');
while n<=b do begin Write(n,' '); n:=n+6 end;
Writeln
end.
Тестовое решение:
Введите нижнюю и верхнюю границы: 13 42
Четные числа, кратные трем из указанного диапазона
18 24 30 36 42
Похожие вопросы
Предмет: Английский язык,
автор: оля1919
Предмет: Русский язык,
автор: саят15
Предмет: Русский язык,
автор: mashaloplola
Предмет: Английский язык,
автор: www12345356789
Предмет: Русский язык,
автор: Blogersha9