Я давал ответ на прошлый вопрос начало тоже начну с вода формуллы
<span>b=(fabs(x)-</span>fabs(y))/(1+fabs(x*y));
fabs(x)-модуль числа x
1) char
2) int
3) float
4) bool
Кстати если, что вопрос частично не корректен, так как D может быть int, так как в c++ bool интерпретируется как число и плюсам без разницы bool/short/int, просто bool - 1 байт, а integer - 4, хотя это можно исправить другими типами данных, но не суть.
Также в C могут быть double и float, отличаются точностью, но оба ответа правильные.
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Var rast,summa:real;
k:integer;
begin
rast:=10;
summa:=10;
for k:=2 to 7 do
begin
rast:=rast+rast/10;
summa:=summa+rast;
end;
writeln(summa);
<span>end.</span>