Составить блок-схемы для: 1) Ввести четырехзначное число. Определить есть ли среди цифр этого числа цифра 3. 2) Ввести два числа. Определить есть ли среди них числа кратные 3 и 5 одновременно.

Question

Составьте или нарисуйте пожалуйста. СРОЧНО нужно

Answer 1

1 2 3 4 5 6 7 8 9

Var n,m:longint; Begin     write('Введите 4-ое число: ');readln(n);     write('Введите цифру: ');readln(m);     if (n mod 10 = m)or(n div 10 mod 10 = m )or(n div 100 mod 10 = m)or(n div 1000 = m)      then writeln('Yes')       else writeln('No');     readln; End.