Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)
var
f : text;
i : integer;
s, j: string;
begin
Assign(f, 'in.txt');
Reset(f);
while not EOF(f) do
begin
readln(f, s);
for i := 1 to length(s) do
if ((s[i] = 'a') and ((length(s) < length(j)) or (j = ''))) then
j := s;
end;
writeln(j);
end.
Ручной смартфон мобильный тоже
Настольный ноутбук нетбук
Прикладной ПК(ну системный блок клава мышь монитор)
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Человек, умеющий читать и писать, казался египтянам мудрецом потому, что образование в то время мало было развито. И тот человек, который умел читать и писать казался египтянам очень умным, так как в то время практически никто не умел делать это.
Всё сделано лично мной. Копирование запрещено©
<span>(х>2) или не (x>1)
x=1
</span>(1>2) или не (1>1) ⇒ ложь или не ложь ⇒ ложь или истина ⇒ истина
x=2
(2>2) или не (2>1) ⇒ ложь или не истина ⇒ ложь или ложь ⇒ ложь
x=3
(3>2) или не (3>1) ⇒ истина или не истина ⇒ истина или ложь ⇒ истина
x=4
(4>2) или не (4>1) <span>⇒ истина или не истина ⇒ истина или ложь ⇒ истина
</span>Ответ: 2) 2
