Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычислить количество чисел меньших 50 https://www.cyberforum.ru/ pascalabc/ thread1108326.html
Дано три натуральных числа X,Y,z. Вычислить количество чисел меньших 50. Помогите составить программу в паскале..пожалуйста
Pascal ABC Дано трёхзначное число, кратна ли сумма его цифр 7?
дано трёхзначное число, кратна ли сумма его цифр 7? так, вот, значит написала program zad1; var d,n,a,s,m,p:integer; begin writeln('введте трехзначное число'); readln(n); m:=n div 100; d:=n...
Разработать программу, которая упорядочивает элементы массива в алфавитном порядке наименований изделий Pascal ABC
Каждый элемент исходного массива представляет собой запись, содержащую следующие поля: Наименование изделия: 1.Марка изделия 2.Год выпуска изделия Разработать программу, которая упорядочивает...
Pascal ABC Программа не правильно находит минимальный элемент в записи вот задача: На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в специальной ведомости: наименования лекарственного препарата; количество; цена; срок хранения( в месяцах).... https://www.cyberforum.ru/ pascalabc/ thread1108207.html
Pascal ABC Найти сумму элементов каждого столбца матрицы https://www.cyberforum.ru/ pascalabc/ thread1108115.html
Найти сумму элементов каждого столбца матрицы. создать при выводе чисел саму матрицу этих рандомных чисел,вот код uses crt; const n = 4; var a : array of integer; sum : integer; i, j : byte; ...
Pascal ABC Найти сумму элементов одномерного массива
Найти сумму элементов одномерного массива.сам код я сделал, мне нуэно добавить чтобы выводилась сама матрица рандомных чисел,а я не понимаю как (((( Program sds; uses crt; var s:real;...
Упорядочить список слов по алфавиту Pascal ABC
Дан список фамилий сотрудников. Переписать в другой список только те фамилии, которые заканчиваются на ‘ова’. Затем упорядочить по алфавиту второй список.
Pascal ABC Найти номер последнего слова Задан список из десяти городов. (array of string). Найти номер последнего города в списке в названии, в которого есть более одной буквы «н» https://www.cyberforum.ru/ pascalabc/ thread1108065.html
Pascal ABC Поменять местами длинное и короткое слово https://www.cyberforum.ru/ pascalabc/ thread1108064.html
Задан список из 20 фамилий. (array of string). Поменять местами названия самого длинного и самого короткого слова.
Pascal ABC Как использовать циклы while, for, repeat Объясните доступным и понятным языком как использовать циклы while, for, repeat. Понять не могу ни как. https://www.cyberforum.ru/ pascalabc/ thread1108063.html
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
02.03.2014, 15:45 0

Найти произведение тех чисел, которые не имеют в своей записи цифры 3

02.03.2014, 15:45. Просмотров 942. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от BaysNoize Посмотреть сообщение
То есть любое чисто в котором нету тройки?
подразумеваются только 4х-значные числа.
Yokano, если количество проверяемых чисел задается пользователем, то как-то так:
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
var
  n, i, a, b, k: integer;
  f: boolean;
  p: real;
begin
  write('Введите количество проверяемых чисел N: ');
  readln(n);
  p:=1; k:=0;
  for i:=1 to n do
  begin
    write('Введите ',i,'-е число: ');
    readln(a);
    b:=a;
    f:=true;
    while a>0 do
    begin
      if a mod 10=3 then f:=false;
      a:=a div 10;
    end;
    if f then begin
      p:=p*b;
      inc(k);
    end;
  end;
  if k=0 then writeln('Нет чисел, удовлетворяющих условию') else
  writeln('Произведение = ',p,' ',k);
  readln;
end.
зы, можете добавить проверку на ввод только четырехзначных чисел

Вернуться к обсуждению:
Найти произведение тех чисел, которые не имеют в своей записи цифры 3
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2014, 15:45
Готовые ответы и решения:

Найти количество тех чисел отрезка [A, B], которые в своей записи имеют две девятки
Дан натуральный отрезок чисел . Найти количество тех чисел этого отрезка, которые в своей записи...

Найти среднее арифметическое тех чисел последовательности, которые имеют в своей записи цифру 3
Дана последовательность из n целых чисел. Найти среднее арифметическое тех чисел...

Найти среднее арифметическое тех чисел последовательности, которые имеют в своей записи цифру три
Дана последовательность из n целых чисел. Найти среднее арифметическое тех чисел...

Найти те числа отрезка, которые в своей записи имеют только четные цифры
Дан натуральный отрезок чисел . Найти те числа этого отрезка, которые в своей записи имеют только...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.