1. Информатика
  2. Составить программу проверяющую

Составить программу проверяющую верно ли утверждение что произведение цифр введенного вами четырехзначного целого числа делится на 5 и не делится на вторую цифру числа.на экране должно быть сообщение верно или не верно. паскаль 10 .

kafmmi kafmmi    3   29.09.2019 19:40    2

Ответы
просточеловек20171 просточеловек20171  09.10.2020 03:36

begin

  var n:=ReadInteger('n=');

  var m:=(n div 1000) mod 10;  

  var p:=1;

  while n>0 do

  begin

  p*=n mod 10;

  n:=n div 10

  end;

  if (p mod 5 =0) and(p mod m<>0) then Print('Верно')

  else Print('Неверно')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
IvanovaYulia200 IvanovaYulia200  04.08.2019 23:10
Перевести данное число из десятичной системы счисления в двоичную ,восьмеричную и шестнадцатиричную системы счисления 61(10)...
Гольник Гольник  04.08.2019 23:10
Алфавит племени раз состоит из 256 знаков а алфавит племени да из 128 для жителей какого племени сообщение из 10 символов будет нести больше информации и на сколько?...
слополоп слополоп  04.08.2019 23:10
Напишите код для нахождения количества целых чисел...
armanshinaelin armanshinaelin  02.08.2021 20:31
from tkinter import * import requests root=Tk() def get_weather(city): key = 68508284fb9247c6335d04f9fc158f12 , url = http://api.openweathermap.org/data/2.5/weather params...
roman19995555 roman19995555  02.08.2021 21:46
1.Значення списку можна скопіювати в незалежний новий список за до одного з наступних ів функції copy() функції list() функції list[] функції copy{} розділенням списку...
ArtemS99 ArtemS99  02.08.2021 22:24
Какие цели преследуют владельцы сайтов, использующие домен .su, если содержание сайта никак не связано с СССР? Что хотят этим подчеркнуть? Или просто коммунисты?...
sashakoritnij sashakoritnij  02.08.2021 23:02
) нужно выполнить в Паскале со скриншотами:...
PEWALWIK PEWALWIK  22.03.2021 11:10
Сколько времени требуется для загрузки файла размером 0,5 МБ который передается по линии связи со скоростью 256 килобит в секунду? ответ дать в секундах​...
MARYA5478 MARYA5478  22.03.2021 11:12
Написать код страницы которая содержит 1 заголовок страницы мой сайт, 2 надпись на средине это мой первый сайт фон страницы синий и вставлена картина portret. Jepeg​...
CbIP0K CbIP0K  22.03.2021 11:12
4. Написать программу, записывающую поочередно по одному слову из исходного файла в новый файл заглавными и строчными символами. Словами считать группы символов, разделенные...

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