Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
Если ето в Power Point то я помогу
Основной лист
Название Microsoft. В описании напиши компания которая сделала Windows.
1 лист
Название Описание. В описании листа напиши Microsoft Corporation американская компания освоенная в 1949 году. Сама компания делала Windows дизайны компьютеров.
2 лист
Название Логотип. В описании напиши Логотип у Microsoft и у Windows 4 куба жёлтый синий красный зелёный в кружке.
<span>MSAccess - специальное назначение
HTML - системы программирования
"консультант Плюс" - не знаю такой программы
sound.drv - судя по названию это драйвер
basic - </span><span><span>системы программирования
</span>c+, Фортан ,паскаль </span><span><span>- системы программирования
</span>Linux - операционная система
FoxPro - наверно чтото профессиональное
MSWord, MSExcel - специального назначения
macromediaFlash </span>- професиональное
1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю