#include <iostream>
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;
else:
std::cout<<"No"<<endl;
}
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)
begin
writeln("да");
end
else
begin
writeln("Нет"):
end;
Как то так
end.
Задача 1:
program HW1;
var a,b,c:integer;
begin
write('Ведите три целых числа через пробел: '); readln(a,b,c);
write('Числа, попадающие в отрезок [1,3]: ');
if (a >= 1) and (a <= 3) then write(a, ' ');
if (b >= 1) and (b <= 3) then write(b, ' ');
if (c >= 1) and (c <= 3) then write(c, ' ');
end.
Задача 2:
program HW2;
var a,b:real;
var c:integer;
begin
write('Ведите две стороны прямоугольника через пробел: '); readln(a,b);
writeln('Что трубуется вычислить?');
writeln('1) Площадь прямоугольника');
writeln('2) Периметр прямоугольника');
writeln('3) Диагональ прямоугольника');
readln(c);
if c = 1 then writeln('Площадь прямоугольника равна ', a*b:1:1)
else if c = 2 then writeln('Периметр прямоугольника равна ', 2*(a+b):1:1)
else if c = 3 then writeln('Диагональ прямоугольника равна ', sqrt(sqr(a)+sqr(b)):1:1)
else writeln('Введёно некорректное значение.')
end.
Задача 3:
program HW3;
var a,i:integer;
begin
a := 0;
for i := 1 to 99 do
begin
if (i mod 2 ) <> 0 then a := a + i
end;
writeln('Cуммa ряда 1, 3, 5..99: ', a);
end.