Program PR1;
uses crt;
var stroka,tmp:string;
i,b,max:integer;
Begin
clrscr;
readln(stroka);
max:=0;
for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
if length(tmp)>max then max:=length(tmp);
tmp:='';
end
else begin
tmp:=tmp+stroka[i];
if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
end;
writeln(max);
end.
Ответ:
x = 2; y = -0.5;
x = 10, y = 0.166667;
x = 5; y = 1;
Объяснение:
Вот сама программа, на питоне как я понял
x = 0
y = 0.0
x = input('Введите x = ')
print('y равен ' , 1/(int(x)-4))
Устройство ввод-периферийное оборудование для занесения (ввода) данных или сигналов в компьютер либо в другое электронное устройство во время его работ/Сканер,Видео-и Веб-камера,Цифровой фотоаппарат,Плата видеозахвата,Микрофон,Цифровой диктофон,Мышь,Трекбол,Тачпад,Световое перо,Графический планшет,Тачскрин,Джойстик,Устройства основанные на компьютерном зрении типа Kinect.
Устройство вывода - периферийные устройства, преобразующие результаты обработки цифровых машинных кодов в форму, удобную для восприятия человеком или пригодную для воздействия на исполнительные органы объекта управления.
<span><span>Монитор (дисплей),</span>Принтер,<span>Графопостроитель(плоттер),</span></span>Встроенный динамик,Колонки,<span>Наушники</span>
Ответ:
program zz1;
const n = 12; // задаем количество элементов в массиве
var i, k, k1, s, c:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
write(' введите заданное число ');
read(c);
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(51);
for i:=1 to n do // выводим полученный массив на экран
write(m[i],' ');
writeln; // переходим на новую строку для вывода ответа
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
begin
if i mod 2 = 1 then begin s:=s + m[i];k:=k+1;end; // получаем сумму и количество элементов на нечетных местах
if m[i] < c then k1:=k1 + 1; // получаем количество элементов меньших заданного
end;
writeln( ' среднее арифметическое чисел стоящих на нечетных местах = ', s/k:5:2); //выводим ответ
writeln( ' количество чисел меньших заданного С = ', k1);
end.
Объяснение:
//Pascal ABC.NET v3.0 сборка 1111
Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
if (a<0) and (not odd(a)) then b:=true else b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>