<span>При копировании файлов с мультимедийных устройств нужно использовать USB,или какую либо сеть (Bluetooth.WiFI).</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 10 do
writeln('*');
end.
ответ 36 кбайт
я тебе в комментах в прошлом вопросе скинул
1.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1*a2 mod 5 = 0
then writeln('Да') else writeln('Нет');
end.
Пример:
a = 52
Да
2.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1>a2
then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2);
end.
Пример:
a = 93
2*9 = 18
3.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1);
if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2);
end.
Пример:
a = 45
3*4 = 12
Добрый день! переводим все в 2 с.с
457 = 1 0010 1111
СА = 0 1100 1010
складываем
1 0010 1111
0 1100 1010
1 1111 1001 - ответ!