<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>
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение
var n, sum, i, j:integer;
begin
sum:=0;
write('Enter N: ');
readln(n);
writeln('Enter N numbers:');
for i:=1 to n do
begin
read(j);
sum:=sum+j;
end;
writeln('Average is ', sum/n)
end.
Для задания №1 не понятна кодировка. Предположим, что КОИ-8, тогда получим 71*35*50 = 124250 Байт ≈ 121 Кбайт
Задание №2:
Ответ:14 Байт
<span>a := 8;
b := 6+3*a; => а мы присвоили значение 8, значит 6+3*8=30
</span><span>a := b/2*a;</span><span> => 30/2*8 = 15*8 = 120
</span>
ответ:
a=120
<span>b=30</span>