Var
F: real;
begin
F:= 4.25;
write(trunc(F) - (F - trunc(F)));
end.
1)
s := 0;
for i := 1 to k do
begin
if i mod 2 <> 0 then
s:= s + i;
end;
2)
for i := 5 to 55 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
3)
s := 1;
for i := n to m do
begin
s:= s * i;
end;
4)
s := 0;
for i := 10 to 15 do
begin
s:= s + i;
end;
обрамления там везде одинаковые
Ответ: 64
Объяснение:
Формула все та же что и в твоём прошлом вопросе, если ответ написан верно N=2^i
Делала сама в паинте, если что, то пиши)
Begin
var s := ReadAllText('input.txt');
while (pos(', короче,', s) <> 0) do
delete(s, pos(', короче,', s), 9);
WriteAllText('output.txt', s);
end.