uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do
Begin
if (a mod 2<>0) then x1:=x1*a;
if (a<0) then x2:=x2+1;
readln(a);
end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.
const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.
Проще будет создать новый
а как восстановить доступ к акку на телефоне не знаю
Мяч
играть в футбол, баскетбол, и тп
шарообразная форма
красный, белуй, синий
кидать, пинать, ловить и тп
прягает, летает при ударе и тд