1. Информатика
  2. Как написать в паскале? дано целое

Как написать в паскале? дано целое трехзначное число n. верно ли, что в нем есть хотя бы одна цифра 7?

sol9 sol9    1   28.05.2019 18:00    1

Ответы
sevi88 sevi88  01.10.2020 13:42
var
  n: integer;
begin
  readln(n);
  if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
  else writeln(false);
end.
ПОКАЗАТЬ ОТВЕТЫ
Fynerka Fynerka  01.10.2020 13:42
Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ksiusha131 ksiusha131  01.07.2019 08:30
Определить объем видеопамяти в килобайтах для графического файла размером 640480 пикселей и палитрой из 32 цветов. поясните...
Damir6565 Damir6565  01.07.2019 08:30
Гиперссылки на web-странице могут обеспечивать переход… 1) на любую web-страницу любого сервера internet 2) на любую web-страницу в пределах данного домена 3) на любую...
f0xses f0xses  01.07.2019 08:30
A– множество прямоугольников; b – множество квадратов. в ка- ком отношении находятся эти множества? если а)а пересечение в - мн. прямоугольников, б)а объединение b- мн....
arseniykolesnikov arseniykolesnikov  01.07.2019 08:30
Задана матрица в(n,m). определить количество столбцов, по возрастанию. каждый второй столбец упорядочить по возрастанию и найти, на сколько увеличилось количество таких...
dariarez dariarez  01.07.2019 08:30
Записати на мові програмування паскаль: за ознаками подільності на 11 зясувати чи натуральне пятизначне число кратне 11. )...
nataalferova8 nataalferova8  01.07.2019 08:30
Сколько килобайт в одном терабайте, 2 в 20 степени; 2 в 30 степени; 2 в 40 степени?...
ilya7klass ilya7klass  01.07.2019 08:30
По информатике.паскаль люди добрые, решить ,завтра зачёт по информатике,нужно эту решить.вот условие: вывести на экран все трехзначные числа,сумма квадратов цифр которых...
Nemofish Nemofish  01.07.2019 08:30
Help! сколько по объему( в килобайтах) будет занимать цветное изображение (512 цветов) размером 960*680...
Arisha7777 Arisha7777  01.07.2019 08:30
Вячейках excel расположены 10 элементов одномерного массива.вычислить среднее арифметическое нечетных элементов.vba....
Снежана1995 Снежана1995  01.07.2019 08:20
Написать программу на abc pascal: дан текстовый файл f. найти слова, заканчивающие на of...

Популярные вопросы