М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Напишите программу на языке Паскаль для вычисления суммы чисел, кратных 3 из промежутка от 1 до k (k вводится с клавиатуры

👇
Ответ:

var k, sum, i:Integer;

begin

sum:=0;

readln(k);

for i := 1 to k do

begin

 if  (i mod 3 = 0)then

 sum:=sum+i;  

end;  

writeln(sum);

end.

4,8(40 оценок)
Открыть все ответы
Ответ:
Фёкла11
Фёкла11
16.08.2020
USES CRT,Graph;VAR Device,Mode:Integer;    i,x,y,s:Integer;BEGINCLRSCR;       Device:=0;       InitGraph(Device,Mode,'');       s:=100;       x:=320;       y:=240;       for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s-10;               SetColor(White);           end;            for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s+10;               SetColor(White);           end;          Circle(x,y,s);Readln;END.
4,8(40 оценок)
Ответ:
district31
district31
16.08.2020

Объяснение:

#include <ctime>

#include <cstdlib>

#include <iomanip>

#include <iostream>

using namespace std;

int max_row(int **a, int m, int c) {

int mr = 0;

for (int r = 1; r < m; ++r) if (a[mr][c] < a[r][c]) mr = r;

return mr;

}

int main() {

srand(time(0));

cout << "m n? ";

int m, n; cin >> m >> n;

cout << "\n матрица: \n";

int **a = new int *[m];

for (int r = 0; r < m; ++r) {

a[r] = new int[n];

for (int c = 0; c < n; ++c) cout << setw(4) << (a[r][c] = rand() % 1000);

cout << endl;

}

int mc = 0, mr = max_row(a, m, 0);

cout << "\n максимумы в столбцах: \n" << setw(4) << a[mr][0];

for (int c = 1; c < n; ++c) {

int cmr = max_row(a, m, c);

cout << setw(4) << a[cmr][c];

if (a[mr][mc] > a[cmr][c]) {

mc = c;

mr = cmr;

}

}

cout << "\n\n искомый элемент: a[" << mr << "][" << mc << "] = " << a[mr][mc] << endl;

return 0;

}

4,6(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ