program mar;
uses crt;
var F,k:integer;
S:real;
begin
clrscr;
F:=1;
S:=1;
for k:=1 to 3 do
begin
F:=F*k;
S:=S*(2*F)/(k*k*k*k+k);
writeln('k = ',k );
readkey;
end.
Найдите ошибку, пожалуйста, программа не идет.
Предмет:
ИнформатикаАвтор:
gianterx0Необходимо поставить ещё один end. Ты цикл не закрыла.
Автор:
khloeprogram mar;uses crt;var F,k:integer;S:real;beginclrscr;F:=1;S:=1;for k:=1 to 3 dobeginF:=F*k;S:=S*(2*F)/(k*k*k*k+k);writeln('k = ',k );end; // тебе хватало этого эндаreadkey;end.
Автор:
morganztwuДобавить свой ответ
Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An.
Предмет:
ИнформатикаАвтор:
jaidencervantesОтветов:
Смотреть
является ли понятия фактический брак, гражданский брак, фиктивный брак синонимами?
Предмет:
ОбществознаниеАвтор:
judahОтветов:
Смотреть
у Оли было 92р.за книгу она заплатила четвёртую часть всех денег,а за набор для черчения -третью часть денег,которые остались после покупки книги. сколько стоил набор для черчения? для решения задачи ответь на каждый вопрос 1)сколько стоила книга.2)сколько денег осталось у Оли после покупки книги 3)сколько стоил набор для черчения
Предмет:
МатематикаАвтор:
sergio58Ответов:
Смотреть
найти значение дроби !!!Срочно !!!х в квадрате -6х+3 дробь х+2 при х=-1дробь 3 пожалуйста полное решение
Предмет:
АлгебраАвтор:
kelseyrivasОтветов:
Смотреть