с информатикой Определить для указанных значений X значение
логического высказывания
((X > 3) ∨ (X < 3)) →(X < 4)
1) X = 1; 2) X = 12; 3) X = 3; 4) x=-6

//PascalABC.NET 3.2 сборка 1318

//1

Var
  s,maxs:string;
  i,max,j,len:integer;
begin
max:=-1;
readln(s);
var ars:=s.Split;
for i:=0 to ars.length-1 do
begin
len:=0;
  for j:=1 to ars[i].length do
    if (lowcase(ars[i][j])>='a') and (lowcase(ars[i][j])<='z') then
        inc(len);
if ars[i].length=max then
    maxs+=chr(13)+ars[i]+' '+len;
if ars[i].length>max then
    begin
      maxs:=ars[i]+' '+len;
      max:=ars[i].length;
    end;
end;
write(maxs);
end.

Пример ввода:
Steins;Gate is fine VN, 12345678910
Пример вывода:
Steins;Gate 10
12345678910 0

//2

Var
  s:string;
  i,counter:integer;
begin
readln(s);
for i:=1 to length(s) do
  if (s[i]=upcase(s[i])) and (lowcase(s[i])>='a') and (lowcase(s[i])<='z') then
 inc(counter);
writeln(counter);
end.

Пример ввода:
SiMple TeXt
Пример вывода:
4

Объяснение:

1. БЕЗ ПРИЗНАКОВ ЖИЗНИ (нет изображения, звуковых сигналов, не включаются светодиоды на системной плате и вентилятор ЦП)

2. ПК РАБОТАЕТ, НЕТ ИЗОБРАЖЕНИЯ (вентилятор ЦП работает, светодиоды материнской платы горят, но видеосигнала на мониторе нет)

3. BIOS ПРЕКРАЩАЕТ РАБОТУ (компьютер работает, но BIOS внезапно прекращает свою работу с ошибкой)

4. НЕ УДАЕТСЯ ЗАГРУЗИТЬ WINDOWS (появляется логотип ОС, но пользовательский интерфейс не загружается)

5. ПК РАБОТАЕТ СО СБОЯМИ (компьютер загружается, но «зависает» через некоторое время или под нагрузкой)

6. НЕ РАБОТАЮТ КОМПОНЕНТЫ ПК (проблемы с изображением или звуком, а также с портом USB и модулем Wi-Fi или приводом CD, DVD)