640*480 = 307 200пикселей.
307200*3 = 921 600Байт.
921 600Байт*8 =7 372 800Бит
7372800Бит/28800Бит/c=256 секунд
Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать
Первый вопрос - первое вложение. Второй - два остальных.
2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9