С клавиатуры вводится некоторое количество положительных чисел, результатом конца ввода является любое отрицательное число. Найти и вывести на экране все числа кратные 3
Нет комментариев
Ответы
Гость Var a,b,i:integer;
begin
write('Введите А:');readln(a);
write('Введите Б:');readln(b);
for i:= a to b do begin
if (i mod 3=0) then write(i,' ');
end;
end.
Нет комментариев
Похожие вопросы
Информатика
Проверочная работа Программирование на паскале ,помогите решить ,с решением срочно ,................
Информатика
Помогите решить. Если что там в 3 строчке end...
Список предметов
