Pascal
Скидываю файл, так как там действительно много кода.
1) uses<span> crt;
2) </span><span>var
3) </span>s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0<span>;
7) </span>writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?')<span>;
</span>10) readln(s2);
11) for i:=1 to length(s1) do <span>begin
</span>12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k)<span>;</span>
16)End.
Так что ли?вот примеры умножения чисел больше 80
90*100=9000
85*200=17000
99*110=10890
80*80=6400
88*99=8712
101*102=10302
110*110=12100
90*90=8100
program poezd;
var
s, v, vm, t : real;
begin
WriteLn('Введите скорость поезда(км/ч)');
read(v);
writeln('Введите время(в секундах)');
read(t);
vm := v * 1000 / 3600; //переводим км/ч в м/с
S := vm * t;
if S > 200 then
begin
writeln('Да, больше.');
end;
if S < 200 then
begin
writeln('Нет, меньше.');
end;
end.