Ветвление в циклах с параметром

@Cricket · Регистрация: 13.01.2016

Студворк — интернет-сервис помощи студентам

1.Вывести на экран все трехзначные числа,которые при делении на 47 дают в остатке 43.Подсчитать их количество.
2.Вывести на эран все двухзначные числа,сумма цифр которых равна целому числу n
3.Даны натуральные двузначные числа.Вывести на экран те числа,в состав которых входит число 7 и сумма цифр которых равна 9.

@overlord754 · 28.12.2009, 10:32

Cricket,
1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
i,a:integer;
begin
a:=0;
begin
for i:=0 to 999 do
if (i mod 47)=43 then a:=a+1;
end;
write(a);
readln;
end.

@Inadequate · 28.12.2009, 13:23

Сообщение от Cricket

Вывести на эран все двухзначные числа,сумма цифр которых равна целому числу n

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function F(n:integer):integer;
var
  temp,sum:integer;
begin
  temp:=n;
  sum:=0;
  while temp<>0 do
  begin
    inc(sum,temp mod 10);
    temp:=temp div 10
  end;
  F:=sum
end;
var
  i,n:integer;
begin
  writeln('Enter n...');
  readln(n);
  for i:=10 to 99 do
    if f(i)=n then
      write(i,' ');
  writeln
end.

Добавлено через 5 минут

Сообщение от Cricket

Даны натуральные двузначные числа.Вывести на экран те числа,в состав которых входит число 7 и сумма цифр которых равна 9

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function F(n:integer):integer;
var
  temp,sum:integer;
begin
  temp:=n;
  sum:=0;
  while temp<>0 do
  begin
    inc(sum,temp mod 10);
    temp:=temp div 10
  end;
  F:=sum
end;
function P(n:integer):boolean;
var
  temp:integer;
begin
  temp:=n;
  while temp<>0 do
  begin
    if temp mod 10 = 7 then
    begin
      P:=true;
      exit
    end;
    temp:=temp div 10
  end;
  P:=false
end;
var
  i:integer;
begin
  for i:=10 to 99 do
    if (f(i)=9) and p(i) then
      write(i,' ');
  writeln
end.

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Cricket 0 / 0 / 0 Регистрация: 13.01.2016 Сообщений: 7

	Ветвление в циклах с параметром 28.12.2009, 10:21. Показов 1486. Ответов 2 Метки нет (Все метки) 1.Вывести на экран все трехзначные числа,которые при делении на 47 дают в остатке 43.Подсчитать их количество. 2.Вывести на эран все двухзначные числа,сумма цифр которых равна целому числу n 3.Даны натуральные двузначные числа.Вывести на экран те числа,в состав которых входит число 7 и сумма цифр которых равна 9. 0

Ветвление в циклах с параметром

Решение