4 года назад

Дано натуральное число M. Написать программу для вычисления суммы вида: 45+42+39+...+M. входные данные n=38 выходные данные 126

Знания

Информатика

2 ответа:

Нателла Климанова [5]4 года назад

0 0

Ответ:

Begin

Read(a);

Sum:=45;

I:=45;

While i>a do

Begin

I:=i-3;

Sum:=sum+i;

End;

Write(sum);

End.

Объяснение:

Слуга [552]4 года назад

0 0

Ответ:

Ну, вот на Pascal написал. Вроде так...

var

Sum, I : integer;

Sum := 0;

I := 45;

While I >= M do

begin

Sum := Sum + I;

I := I - 3;

end;

Writeln(Sum);

end.

Объяснение:

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

=SIN(2*ПИ()*(Дата дня вычисления-Дата рождения)/23) что нужно поставить в скобке после пи? это для биоритмов

Ольга434

Смотря откуда эта формула и как вы ее применяете

Похоже, что ПИ - просто функция без аргументов, т.е. ничего ставить не надо

0 0

4 года назад

Ввести массив x из 25 элементов. Увеличить все отрицательные элементы массива на 5 и вывести новый массив.

Никита161 [7]

#include <iostream>
using namespace std;
int main() {
setlocale(0, "RUS");
int x[25];
for (int i = 0; i < 5; i++) {
cin >> x[i];
}
cout << "Исходный массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
if (x[i] < 0) x[i] += 5;
}
cout << endl << "Новый массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
}
cout << endl;
system("pause");}

0 0

4 года назад

Прочитать ещё 2 ответа

Чему будет равна переменная «c» после выполнения этой программы: a := 26; b := 6; b := a mod b + 4; c := a mod b + 1;

ШАА

A := 26;
b := 6;
b := a mod b + 4 = 26 mod 6 + 4 = 2 + 4 = 6;
c := a mod b + 1 = 26 mod 6 + 1 = 2 + 1 = 3;

Ответ: 3.

0 0

4 года назад

1.Дано натуральное число. Определить: а) является ли оно чётным б) оканчивается ли оно цифрой 7. Дано двухзначное число. Определ

Кристина Дибаева

1 a)
var
a: integer;

begin
readln(a);
if a mod 2 = 0 then
    println('da')
else println('net');
end.
======================================
1 б)
var
a: integer;

begin
readln(a);
if a mod 10 = 7 then
    println('da')
else println('net');
end.
================================
2 а
var
a: integer;

begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
    println('da')
else println('net');
end.
======================================
2 б
var
n,a: integer;

begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
    println('da')
else println('net');
end.

0 0

4 года назад

В кодировке КОИ - 8 символ кодируется одним байтом. Определите количество символов в сообщении. если информационный объем сообще

Евгения Андреевна...

1 символ - 1 байт
х - 80 байт
х=80*1/1=80 символов
как то так. Я надеюсь в условии 80 - это байт

0 0

3 года назад