1 фирпвдув.Каждый символ открытого текста заменяется символом,находящимся тремя символами правее в алфавите.
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
На каждый вид мышки можно выбрать 12 видов клавиатур => 12*10=120 разных комбинаций "мышка-клавиатура"
Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.