// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Первая слева схема дает a ∧ b
Cледующая схема инвертирует это выражение: ¬(a ∧ b)
Самая правая схема объединяет полученную функцию с b по "ИЛИ"
¬(a ∧ b) ∨ b = ¬a ∨ ¬b ∨ b = ¬a ∨ (¬b ∨ b) = ¬a ∨ 1 = 1
var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
Чтобы увидеть графическую заставку к игре необходимо открыть .avi
Ответ: а
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.