Помогите, пожалуйста, написать программу в паскале!!
10-11 класс
|
var
i, k: integer;
s: real;
begin
s := 1;
for i := 1 to 10 do
begin
k := k + i;
s := s * k;
writeln(i:3,k:3,' ',s);
end;
writeln(s);
end.
program zadacha;
var
i:integer;
s,p:longint;
begin
s:=1;
p:=1;
for i:=2 to 10 do begin
p:=p+i;
s:=s*p;
end;
write(s);
end.
Другие вопросы из категории
ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5;5} с шагом 1,2.
Записать числа 19,99(10); 10,10(2); 64,5(8); 39,F(16) в развернутой форме.
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
минимальным элементами массива (включая их)