Помогите соствить в паскале,очень срочно С клавиатуры вводился пятизначное число.Вывести...

0 голосов
114 просмотров

Помогите соствить в паскале,очень срочно С клавиатуры вводился пятизначное число.Вывести на экран "да" ,если сумма его цифр кратно 7,а произведение цифр меньше 100,в противном случаи " нет"


Информатика (16 баллов) | 114 просмотров
0

Могу на с написать, если нужно

0

Можно

0

Просто прям срочно нужно

0

Там на паскале набросал, не уверен что правильно, но суть такова

0

То что на с точно рабочее

0

ДАже если неправильно будет

0

но мне нужно в паскале

0

в школе не юзают с++

0

У нас узали

0

Юзали*

Дан 1 ответ
0 голосов

#include

void main()

{

int x;

std::cin>>x;

int sum = 0;

int prod = 1;

while(x>0)

{

 int y = x%10;

 sum = sum + y;

 prod = prod * y;

 x=x/10;

}

if(sum%10 == 0 && prod < 100)

 std::cou<<"Yes"<<endl;</p>

else:

 std::cout<<"No"<<endl;</p>

}

Pascal

var n,digit,sum,prod:integer;

begin

 readln(n);

sum = 0;

prod = 1;

 while (n>0) do

 begin

  digit:=n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n:=n div 10;

 end;

if(sum mod 10=0)and(prod<100)</p>

begin

writeln("да");

end

else

begin

writeln("Нет"):

end;

Как то так

end.

(4.0k баллов)
0

Pascal

0

gf