байта.
<span> - это перевод 1 Мбайта в байты</span>
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
<span>основной характеристикой шины является </span>Разрядность
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
a,b,c,y:real;
begin
Write('Введите через пробел три числа: '); Read(a,b,c);
if a>b then y:=a else y:=b;
if c>y then y:=c;
Writeln('y=',y)
end.
<u><em>Тестовое решение:</em></u>
Введите через пробел три числа: 6.18 -5 2.11
y=6.18