V = S/t . Насколько я поняла, так как и с дробными числами действия должны выполняться так же.
Var s,tmp:string;
i,n:integer;
flag,word:boolean;
function letter (const let:char):boolean;
begin
if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
else letter:=false;
end;
begin
readln (s);
s:=s+' ';
n:=length(s);
flag:=false;
for i:=1 to n do
begin
if (letter(s[i])) and (not flag) then
begin
flag:=true;
tmp:='';
word:=false;
end else if (not letter(s[i])) and (flag) then
begin
flag:=false;
if (word) and (not (tmp='')) then writeln (tmp);
end;
if (flag) then
begin
tmp:=tmp+s[i];
if (s[i]='k') then word:=true;
end;
end;
end.
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
fstream file_in("input.txt", ios::in);
fstream file_out("output.txt", ios::out);
int n, max = -1001;
file_in >> n;
while (n != 0)
{
if (n > max) max = n;
file_in >> n;
}
if (max != -1001) file_out << max;
file_in.close();
file_out.close();
return 0;
}
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.