3 года назад

Помогите пожалуйста №7

Знания

Информатика

1 ответ:

Людмила8 [13.9K]3 года назад

0 0

А) var a,i,su,ss:integer;begina:=1;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);end.
Б)var a,i,su,ss:integer;begina:=2;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+2;end;writeln(ss,' ',su);end.
В)var a,i,su,ss:integer;begina:=3;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+3;end;writeln(ss,' ',su);end.
Г)var a,i,su,ss:integer;begina:=4;ss:=0;su:=1;for i := 1 to 3 dobeginss:=ss+a;su:=su*a; a:=a+4;end;writeln(ss,' ',su);end.

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

Ввести с клавиатуры 10 чисел и найти сумму отрицательных чисел.(Паскаль)

zver234

Var i,k,s:integer;
begin
writeln ('Введи 10 чисел');
for i:=1 to 10 do
begin
readln (k);
if k<0 then s:=s+k;
end;
writeln (s);
end.

0 0

4 года назад

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей..-1,

Хельга2014 [136]

Не совсем красиво но без массивов

var cur_num, prev_num: integer;
Begin
    Writeln('Введите последовательность закончив ее нулем');
    read(prev_num);
    repeat
        read(cur_num);
        if cur_num * prev_num > 0 then
            writeln('Пара = ', cur_num * prev_num);
        prev_num := cur_num;
    until cur_num = 0;

End.

0 0

1 год назад

По горизонтали 1. Чем именуется строка? 2. Пересечение столбца и строки. 3. Именуется буквами латинского алфавита. 4. Главная за

Дмитрий Смирнов [50]

1. Арабскими цифрами
2.ячейка
3.столбец
4. Автоматизация или оптимизация
5.таблица
6.формула

0 0

4 года назад

Модифицируем алгоритм следующим образом: Алгоритм НОДм цел: m, n, k; { Запросить m; Запросить n; k:= m + n; Делать пока (не (n =

Yahontova [17]

Твоя программа - кривая реализация вычисления наибольшего общего делителя двух чисел. Единственное, что здесь можно предусмотреть, - чтобы m не было больше n, иначе он не работает.

Вот она же на JS:

javascript:var m = prompt(), n = prompt(), k = m + n;

if (m > n) { n ^= m; m ^= n; n ^= m; }

while (n != 0) { m = n; n = k % n; k = m; }

alert(m);

0 0

4 года назад

Помогите написать программу на C++ Для данного числа Х найти минимальный делитель отличный от 1

Улисс [86]

#include <iostream>
using namespace std;

int main()
{
int x;
cout <<"Введите число: ";
cin >>x;
for(int i=2; i<=x; ++i)
if(x%i==0)
{
cout <<"Наименьший делитель равен ";
cout <<i <<endl;
break;
}

return 0;
}

0 0

3 года назад