Паскаль

1)Ввести четырехзначное целое число. Вычислить произведение чисел, состоящих во втором и третьем разрядах.

2(Ввести дробное число. Вычислить произведение целой и дробной части числа.

1

Ответы и объяснения

2013-11-01T19:02:29+04:00
1)uses crt;
var a,b,p:integer;
begin
readln(a);
a:=a div 10;
a:=a mod 100;
b:=a mod 10;
a:=a div 10;
p:=a*b;
writeln(p);
end.

2)uses crt;
var  a,i,n,b,p:integer;
s,s1:string;
begin
s1:='';
readln(s);
n:=pos('.',s)-1;
for i:=1 to n do
s1:=s1+s[i];
a:=StrToInt(s1);
n:=length(s)-n+1;
s1:='';
for i:=n to length(s) do
s1:=s1+s[i];
b:=StrToInt(s1);
p:=a*b;
writeln(p);
end.