ПОМОГИТЕ РЕШИТЬ!!!! ОЧЕНЬ НАДО, ПОМОГИТЕ!!! ПРОШУ!!!1.отыскать все четырехзначные числа, у
ПОМОГИТЕ РЕШИТЬ!!!! ОЧЕНЬ НАДО, ПОМОГИТЕ!!! ПРОШУ!!!
1.отыскать все четырехзначные числа, у которых сумма последних цифр одинакова сумме средних цифр, а само число делится на 6 и 27.
2.найти количество делителей естественного числа. Сколько из их четных?
Маргарита Аликуева
Программкой решить?
Айзинберг
Яна
Да
Щуровский
Кирилл
На Паскале?
Андрей
Да
1 ответ
Sofija Petraeva
Решение даю самое очевидное и без разбора. Если будет нужно - напишешь сюда, дескать, нужен разбор или более оригинальное решение. Программки работают под PascalABC.Net заключительного обновления, но написаны вроде как под любые диалекты.
1.
program Task1;var ch:word;beginfor ch:=1000 to 9999 dobeginif (ch div 1000+ch mod 10)=(ch mod 1000 div 100+ch mod 100 div 10) thenif ((ch mod 6)=0) and ((ch mod 27)=0) then writeln(ch);end;end.
2.
program Task2;var ch,i,delitelej,chetnyh:word;beginread(ch);for i:=1 to ch do//на самом деле довольно до trunc(sqrt(ch)), но тогда ещё несколько строк для отдельного разбора i=ch - он тоже делитель. при этом chlt;gt;1beginif (ch mod i)=0 then begin delitelej:=delitelej+1;if (i mod 2)=0 then chetnyh:=chetnyh+1; end;end;end.
Оптимизированные под заключительный PascalABC.Net варианты тех же решений (отличаются только записью и совместимостью):
1.
beginfor var ch:=1000 to 9999 dobeginif (ch div 1000+ch mod 10)=(ch mod 1000 div 100+ch mod 100 div 10) thenif ((ch mod 6)=0) and ((ch mod 27)=0) then writeln(ch);end;end.
2.
beginvar ch:word;read(ch);var delitelej,chetnyh:word;for var i:=1 to ch do//на самом деле довольно до trunc(sqrt(ch)), но тогда ещё несколько строк для отдельного разбора i=ch - он тоже делитель. при этом chlt;gt;1beginif (ch mod i)=0 then begin delitelej+=1;if (i mod 2)=0 then chetnyh+=1; end;end;end.
1.
program Task1;var ch:word;beginfor ch:=1000 to 9999 dobeginif (ch div 1000+ch mod 10)=(ch mod 1000 div 100+ch mod 100 div 10) thenif ((ch mod 6)=0) and ((ch mod 27)=0) then writeln(ch);end;end.
2.
program Task2;var ch,i,delitelej,chetnyh:word;beginread(ch);for i:=1 to ch do//на самом деле довольно до trunc(sqrt(ch)), но тогда ещё несколько строк для отдельного разбора i=ch - он тоже делитель. при этом chlt;gt;1beginif (ch mod i)=0 then begin delitelej:=delitelej+1;if (i mod 2)=0 then chetnyh:=chetnyh+1; end;end;end.
Оптимизированные под заключительный PascalABC.Net варианты тех же решений (отличаются только записью и совместимостью):
1.
beginfor var ch:=1000 to 9999 dobeginif (ch div 1000+ch mod 10)=(ch mod 1000 div 100+ch mod 100 div 10) thenif ((ch mod 6)=0) and ((ch mod 27)=0) then writeln(ch);end;end.
2.
beginvar ch:word;read(ch);var delitelej,chetnyh:word;for var i:=1 to ch do//на самом деле довольно до trunc(sqrt(ch)), но тогда ещё несколько строк для отдельного разбора i=ch - он тоже делитель. при этом chlt;gt;1beginif (ch mod i)=0 then begin delitelej+=1;if (i mod 2)=0 then chetnyh+=1; end;end;end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Облако тегов