Var
a, f, f1, i: integer;
begin
f := 0;
f1 := 0;
write('Введите 10 чисел:');
for i := 1 to 10 do
begin
read(a);
if(a > 10) then f := f + 1;
if(a > 5) then f1 := f1 + 1;
end;
if(f > 4) then write('Караул! Сейчас все взорвется')
else
begin
writeln(f1, ' чисел(о)(а) больше 5');
write(f, ' чисел(о)(а) больше 10');
end;
end.
Недостающее слово - контекстное
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
Если не использовать строки, то решение может быть таким:
var n,k,st:integer;
begin
write('n='); readln(n);
k:=0; st:=1;
while n>0 do
begin
if n mod 10 <> 0 then
begin
k:=(n mod 10)*st+k;
st:=st*10;
end;
n:=n div 10;
end;
writeln(k);
<span>end.
</span>
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
<u>Пример</u>
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение