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. найдите ошибку, , программа не идет.
kjgftgv
2
18.05.2019 11:30
0
Другие вопросы по теме Информатика
ruzhovaelizave
13.07.2019 07:40
lesenok277
06.04.2020 09:24
nabludatel00
06.04.2020 09:25
vladkabanets
06.04.2020 09:33
hlagga
06.04.2020 09:32
ludamechta
06.04.2020 09:30
sasha7666
06.04.2020 09:30
кисел5467
06.04.2020 09:29
katywwka
06.04.2020 09:50
Популярные вопросы
- с небольшим уравнением ( с объяснениями, как вы это сделали) К2О...
3 - Вопрос 3 и 5. Как решить? 7 класс...
3 - Расскажите об экскурсии, которая произвела на вас впечатление. Не...
2 - Переведите вот это i didn t dislike it at all Просто не понимаю,...
1 - Они хранят память о прибывании здесь великих сынов россии ,синтаксический...
2 - измерения прямоугольного параллепипеда 3; а; 2 и объем 24. найдите...
1 - заделать задания Віршований розмір вірша Забула внучка в баби черевики...
1 - НАЙТИ РЕАКЦИИ ОПОР a=2м, b=4м, c=2м, d=2м, M=6кНм, F=6кН,q=4кН/м...
2 - Возможно ли полное обезвоживание гидроксида меди при температуре...
1 - Каждый символ заменяет собой цифру от 0 до 9.Найти цифровое значение...
3
Необходимо поставить ещё один end. Ты цикл не закрыла.
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 );
end; // тебе хватало этого энда
readkey;
end.