Писал на 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.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadReal();
write('Площадь: ',a*a*pi,'; Длина окр: ',2*pi*a);
end.
Var s,a:integer;
i:byte;
begin
s:=0;
For i:=1 to 3 do
begin
readln (a); // цена тетради
s:=s+a; // прибавление к общей стоимости тетрадей
end;
writeln (s);
end.
смогли я Вам чем-нибудь помочь?
Достоинства: низкая цена, высокое кач-во печати, яркие цвета
Недостатка: печатающая головка недолговечная и хрупкая, высокая цена на картриджи.
Представитель:Canon, Epsen
Цена: 1290 рублей.
Формат бумаги: A4, А5.
Разрешение: 2400х4800 dpi
Скорость печати: 7 стр/мин
Способ подключения к компьютеру: USB 2.0