<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 M:array [1..20] of integer;
n, Ch, Ost : integer;
Begin
ReadLn(n);
while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
WriteLn( M[]);
end.
Ключевые фразы:"...для решения научных и производственных задач", "...чертежи рассчитанных конструкций". Термины: "результаты", "графики", "диаграммы".
Ответ: научная графика.
1. 2 байта (каждый символ) * 64 (символа в строке) * 36 (строк на странице) * 14 (страниц в тексте) = 64512 байт = 63 килобайта, ответ 4
2. 8 бит = 1 байт,
1 байт (каждый символ) * 48 (символов в строке) * 36 (строк на странице) * 48 (страниц в тексте) = 82944 байт = 81 килобайт, ответ 3
var a,b,c,d:integer;
BEGIN
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("Pravda")
else writeln("Nepravda");
END.