-
13 April 2013
Английский язык
- Автор: Nastya22624
определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7(в паскале авс)
РЕБЯЯЯЯТ ОЧЕНЬ НАДО!!!
-
-
-
13 April 2013
- Ответ оставил: tsiganockoleg
program del;
uses crt;
var chisla: array[1..15] of integer;
n, i, k:integer;
begin
clrscr;
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите 'i'-тое число: ');
readln (chisla[i]);
end;
for i:=1 to n do
if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then
k:=k+1;
write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');
readln;
end.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.
-
-
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
На сегодняшний день (29.08.2026) наш сайт содержит 244795 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос
