//Pascal ABC.NET v3.1 сборка 1172
Var
n,r:integer;
begin
readln(n);
n:=(n div 10)*(n mod 10);
writeln(n);
end.
Пример ввода:
32
Пример вывода:
6
1. Материнская плата
2. Оперативная память
3. Акустические колонки
если диск разделен на 2 логических диска (например C и D), то все нужные документы скидываете на логический диск D и при форматировании уазываете, что хотите почистить только диск С, тогда у Вас отформатированным получится та чать памяти, которая была отведена под диск С, а все, что находилось на диске D так и останется. Но если у Вас только один логический диск, то только путем скидывания на флешку или записи на CD\DVD.
Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>
Const
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.