1. Информатика
  2. Введите четырехзначное

Введите четырехзначное число и проверmnt есть ли в нем цифра 7

zhukovaalisa401 zhukovaalisa401    1   07.06.2019 07:40    3

Ответы
olyasmirnova3 olyasmirnova3  01.10.2020 21:19
Var
  n,x:integer;
  s:string;
begin
s:='Нет';
readln(n);
while n>0 do
  begin
  x:=n mod 10;
  if x=7 then s:='Да';
  n:=n div 10;
  end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olesazato olesazato  09.12.2021 09:06
НА ЯЗЫКЕ ! Дано число N. Далее, в следующих N строках записаны N слов. Сформировать новую строку из тех слов из исходных, количество символов в которых выражается нечетным числом,...
xcp4 xcp4  12.03.2019 22:09
Соствить в паскале, с клавиатуры вводился пятизначное число.вывести на экран да ,если сумма его цифр кратно 7,а произведение цифр меньше 100,в противном случаи нет...
Nime15 Nime15  12.03.2019 22:05
До субботы надо сделать ,всё расписать каждый пример кто шарит ! оценка нужна !...
lizarodionov6Liza lizarodionov6Liza  12.03.2019 22:05
Объем видеопамяти составляет 62,5 кбайта. графический дисплей работает в режиме 640×400 пикселей. какое максимальное количество цветов может содержать палитра? ​...
алькамалька алькамалька  12.03.2019 22:02
Найдите ошибки паскальprocedure fn(s: string); var i: integer; beginreadln(s); for i to length(s) dobeginif copy(s,i,5)= минус ; thendelite(s,i,5); insert( плюс ,s,i); end; end;...
Владимирович11 Владимирович11  12.03.2019 22:01
Склавиатуры вводится расстоянии в сантиметрах (не менее трёхзначного числа) выразить это расстояние в метрах и сантиметрах, вывести результат выполнения на экран...
Kerri11cjdgg Kerri11cjdgg  12.03.2019 21:59
Распределите перечисленные ниже программные средства на 3 группы...
Gsjhcf Gsjhcf  12.03.2019 21:58
Информатика 7 класс тема4,урок22...
Abzik5203 Abzik5203  12.03.2019 21:57
Ануар решил создать скрипт в игровой среде на отрывок а. с. пушкина * руслан и людмила* . ему понравилось 2 строчки из поэмы * у лукоморья дуб зеленый* . ануару выбрать нужную...
ЛизаЕУ ЛизаЕУ  12.03.2019 21:51
Выполните . на бесконечном поле имеются две горизонтальные стены одинаковой длины, расположенные точно одна над другой. длина стен неизвестна. расстояние между стенами неизвестно....

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