первая
var
a : longint := 2;
begin
write('первые 16 степеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
1) После отключения питания компьютера теряется информация в оперативной памяти.
2) Устройства для работы со звуковой информации: микрофон (ввод звуковой информации), колонки и наушники (вывод звуковой информации).
3) Звуковая информация может быть представлена аналоговым способом и цифровым способом (при помощи дискретизации - деление на одинаковые елиницы времени звуковой волны и квантования звука - деление звуковой волны по амплитуде)
4) П<span>рограммы, необходимые для работы компьютера, помещаются в оперативной памяти.
5) Системы счисления: десятичная - в жизни, двенадцатеричная - измерение времени, римская - для обозначения исторических дат (веков).
В компьютере применяются двоичная, восьмеричная и шестнадцатеричная системы счисления.
6) Сканер нужен для ввода информации в память компьютера. чащу используют для ввода графической информации - рисунков, фотографий для ретуширования.
7) Кегль - это размер (высота) шрифтов в текстовых программах.
8) </span><span>MS Word поддерживает текстовые форматы: txt, rtf, doc, docx.
9) Для перезагрузки компьютера можно воспользоваться комбинацией клавиш Ctrl+Shift+Esc или Ctrl+Alt+Delete - выбрать нужную команду при помощи клавиши F10 - стрелок - Enter.
10) Основные текстовые редакторы - Блокнот, WordPad, текстовый процессор - MS Word.</span>
#include "stdio.h"
main()
int N = 10, count = 0, z = 5, i;
int m[N];
double res = 0
for(i = 0, i < N, i++)
if ((m[i] >= -3) && (m[i] <= 3))
{
count++;
res = res + m[i];
}
if (count == 0)
res = 0;
else
res = res / count;
if (res > z)
{
res = 0;
for(i = 0; i < N; i++)
if (m[i] % 2 == 0)
res = res + m[i];
}
else
{
res = 1;
for(i = 0; i < N; i++)
if (m[i] % 2 != 0)
res = res * m[i];
}
printf("Z = %f", res);
}
Отмечай словесное описание
<span>и формулу</span>. Рисунок и фотография будут графическими моделями.
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>