Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
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>
1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.