Пишу на BASIC:
CLS
SCREEN 12
FOR I = -1 TO 1 STEP 0.1
Y = 1 / I + 2
PRINT Y
NEXT
#версия python 3
a = int(input("Введите a: "))
b = int(input("Введите b: "))
if a>b:
res = a+b
print(str(res))
elif a<b:
res = a-b
print(str(res))
else:
print("Ошибка")
Писал на 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.
3)Комплекс програм ,обеспечивающих обработку, передачу и хранение данных в сети.