3 задание (Все готовые лабы по паскалю)
Описание файла
Файл "3 задание" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 3 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "3 задание"
Текст из документа "3 задание"
3. Дано натуральное число n и действительное число x. Вычислить:
-
Текст программы:
var
k, m, n: integer;
i, s, x: real;
begin
write ('n=');
readln (n);
write ('x=');
readln (x);
i:=0;
s:=0;
for k:=7 to n do begin
for m:=k to n do
i:=(x+k) /m;
s:=s+i
end;
writeln ('s=',s);
readln; readln;
end.
-
Исходные данные: n=8 and x=3; Результат: s=2.6250000000E+00