после запятой значение переменной
writeln ('s = ', s);
3*3=9
9*3=27
27-2=25
25-2=23
23*3=69
ответ: 22112
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
Если в верхней строчке не "-3,5", а просто 3,5, то тогда вот такая программа:
var
F:real;
x:integer;
begin
writeln(' x','F':6);
for x:=0 to 16 do
begin if x>=3.5 then F:=4*x*x+2*x-19
else F:=-2*x/(-4*x+1);
writeln(x:2,F:8:2);
end
<span>end.</span>
3000м=3км
правило:в одном километре одна тысяча метров.
проверка:3000÷3