Программы голосового набора текста.
Позволяют вводить текст в ПК, надиктовывая его в микрофон.<span />
Program n1;
const n=15;
var a: array[1..n] of integer;
i,k: integer;
begin
write('массив: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
k:=0;
write('полученный массив: ');
for i:=1 to n do if a[i]<0 then
begin
a[i]:=a[i]*a[i];
k:=k+1;
end;
for i:=1 to n do write(a[i],' ');
writeln;
write('кол-во замен: ',k);
end.
program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
Если завтра будет дождь, то я возьму с собой зонт.
Неверно, что Земля плоская и находится на трех слонах или черепахах.
Неверно, что на олимпиаде по математике нам дают задания по биологии и русскому языку или литературе.
Неверно, что клавиатура и мышь используются для вывода информации или отображения информации.
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15