Помогите создать проект в Delphi 7Составьте программу вычисления суммы:S = 1 +3 +5 +7 +…+(2*N +1)..

Знания

Информатика

1 ответ:

Milka6874 года назад

0 0

Пишу только фрагмент.
...

Readln(N);

S:=1;

for i:=0 to N-1 do
S:=S+(2*i+1);
Writeln('Сумма равна ,'S);
...

Вот так

Читайте также

Что такое холст (информатика )

Светка 87 [3.8K]

Правильно или нет не знаю

0 0

4 года назад

Задан двумерный массив, имеющий N строк и M столбцов. Определите, является ли строка номер N1 равной строке номер N2. Если ДА -

Zhanara8 [3]

Var a:array[1..10,1..12] of integer;
n,m,n1,n2,i,j,s1,s2:integer;
b:boolean;

begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
readln(n1,n2);

s1:=0; s2:=0; b:=true;
for j:=1 to m do
begin
s1:=s1+a[n1,j]; s2:=s2+a[n2,j];
if a[n1,j]<>a[n2,j] then b:=false;
end;

if b then write('YES, s1 = ',s1) else write('NO, s2 = ',s2);
end.

Пример:
3 4
1 2 3 4
2 3 1 4
1 2 3 4
1 3
YES, s1 = 10

0 0

2 года назад

Помогите решить. Записать выражение на языке программирования Паскаль.

Sergeidmdy

1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))

2) y:= -12*sqrt(x*(y*y)+cos(a/2))

3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))

4) S:= ((26*k-m)/(6-4*k))-56*m*k

5) y:= x-(sqrt((y*y+2)/2))+2*y

0 0

4 года назад

Помогите, дам 35 баллов.

Blaine

1. Экранирование внешних воздействий.
2. Вторичный источник питания
3. Основа для построения вычислительной системы
4. Часть, исполняющая код. Главная часть аппаратного обеспечения вычислительной машины.
5. Хранение выполняемого кода, входных и выходных данных. При выключении вычислительной машины освобождается.
6. Хранение и накопление данных.
7. Чтение и запись дисков
8. Преобразование графического образа в форму для вывода на монитор.
9. Обработка и вывод звука.
10. Охлаждение вычислительной машины.

0 0

4 года назад

Что из перечисленного является правильным адресом ячейки электронной таблицы? 1) 7A 2) BC 3) F17 4) 25

andreks1paris [8]

Правильный ответ 3) F17

0 0

4 года назад