На первом фотографии после "s:=" напиши 2*w-13;
Во втором фотографии, где var, после переменных w,s добавь через запятую еще одну переменную - b. То есть должно быть исправлено следующим образом: var w,s,b:real; Но в этой программе (во втором фотографии) есть еще одна ошибка: w=2-13d. Исправь её следующим образом: w:=2*s*s-13*b;
В третьем фотографии выведитmся число 9;
В четвертом фотографии выведиться число 6.
1)2
2)3
3)3
4)-
5)program hello_world;
var a,c,i:integer;
b:real;
begin read(a);
b:=1;
for i:=1 to 5 do begin
b:=b+0.2;
write(b*a,' ');
end;
<span>end.</span>
55
я думаю ты это имл ввиду)
Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.