Var a,b: integer;
c: real;
begin
writeln('Введите сумму денег приёма 2-ух врачей');
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
Var
k: real;
begin
readln(k);
writeln('a = ', k / 5, '; b = c = ', k / 5 * 2);
<span>end.</span>
Ну во первых 2+2 не 5, а четыре. А "Нравится ли вам изучать информатику ?"- это вопрос по этому оно лишнее.
Program Project;
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.