Напишите, , программы в паскале хотябы одну : ( ♥♥♥ 1)по данному натуральному n вычислите сумму 12+22++n2. входные данные вводится единственное натуральное число n, не превосходящее 100 выходные данные необходимо вывести вычисленную сумму. примеры входные данные 2 выходные данные 5 2) вычислите n! ("эн-факториал") – произведение всех натуральных чисел от 1 до n ( n! =1∙2∙3∙…∙ n входные данные вводится единственное число n – натуральное, не превосходит 12. выходные данные выведите полученное значение n! примеры входные данные 2 выходные данные 2 входные данные 3 выходные данные 6 3) по данному натуральному числу n найдите сумму чисел 1+1/1! +1/2! +1/3! ++1/n! . количество действий должно быть пропорционально n. входные данные задано единственное число n выходные данные необходимо вывести результат вычисления в виде действительного числа c точностью до 5 знаков после запятой. примеры входные данные 1 выходные данные 2 4) вывести таблицу умножения на 9 с цикла.
Ответы
Задача №1
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
4
Объяснение:
фрагмент кода меняет соседние элементы массива, если предыдущий меньше последующего и считает кол-во этих перестановок
Исходный
8 9 5 3 2 8 4 2 1 9 d := 0 ( 8 < 9)
1) 9 8 5 3 2 8 4 2 1 9 d := 1 (8 !< 5)
2) 9 8 5 3 2 8 4 2 1 9 d := 1 (5 !< 3)
3) 9 8 5 3 2 8 4 2 1 9 d := 1 (3 !< 2)
4) 9 8 5 3 2 8 4 2 1 9 d := 1 (2 < 8)
5) 9 8 5 3 8 2 4 2 1 9 d := 2 (2 < 4)
6) 9 8 5 3 8 4 2 2 1 9 d := 3 (2 !< 2)
7) 9 8 5 3 8 4 2 2 1 9 d := 3 (2 !< 1)
8) 9 8 5 3 8 4 2 2 1 9 d := 3 (1 < 9)
8) 9 8 5 3 8 4 2 2 9 1 d := 4
ответ: d := 4
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что будет происходить увеличение разности скоростей? 5 Класс
Автор: kampina1
Кто и когда создал вычислительный автомат?
Автор: annarom1306
Переведите целые числа из десятичной системы счисления в восьмеричную: 256, 400, 1234, 2012
Автор: Дмитрий_Владимирович1162
var n,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
writeln('s = ',s);
end.
Пример:
2
5
2.
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(f);
end.
Пример:
3
6
3.
var n,i,f:integer; s:real;
begin
readln(n);
s:=1;
f:=1;
for i:=1 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln(s:6:4);
end.
Пример:
3
2.6667
4.
var i:integer;
begin
for i:=1 to 9 do
writeln(9,' * ',i,' = ',9*i);
end.
Результат:
9 * 1 = 9
9 * 2 = 18
9 * 3 = 27
9 * 4 = 36
9 * 5 = 45
9 * 6 = 54
9 * 7 = 63
9 * 8 = 72
9 * 9 = 81