Программа1:
Var a,b,c,p: real;
Begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
p:=(a+b+c);
Writeln('P=',p:0:1);
End.
Программа3:
var i,a:integer;
begin
write('Ваше число: ');
readln(a);
i:=(a mod 10);
Write('Цифра: ',i);
end.
Программа1:
Var a,b,c,p: real;
Begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
p:=(a+b+c);
Writeln('P=',p:0:1);
End.
Программа3:
var i,a:integer;
begin
write('Ваше число: ');
readln(a);
i:=(a mod 10);
Write('Цифра: ',i);
end.