Регистрация
arihadid
18.02.2022 17:52
Информатика
Есть ответ 👍

Объяснить принцип работ следующих программ (записать, что происходит в каждой сточке программы): 1)
program n22;
var a,b:integer;
begin
writeln('введите целое число a');
readln(a);
writeln('введите целое число b');
readln(b);
writeln ('a mod b = ',a mod b);
writeln ('a div b = ',a div b);
end.

2)
program n_s;
var a, b, c: integer;
p, s: real;
begin
writeln('Вычисление площади треугольника по трем сторонам');
write('введите значения a, b, c');
readln(a, b, c);
p:= (a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('s=', s:2:1);
end.

281
295
Посмотреть ответы 1

Ответы на вопрос:

entogenes
entogenes
4,4(33 оценок)

#include <iostream>

#include <cstdlib>

#include <ctime>

using namespace std;

int main() {

srand(time(0));

int arr[7][5];

double average = 0;

int counter = 0;

for (int i = 0; i < 7; ++i) {

 for (int i2 = 0; i2 < 5; ++i2) {

  arr[i][i2] = rand();

  cout << arr[i][i2] << " ";

  if (i2 == 4)

   cout << endl;

  if (arr[i][i2] % 2 == 0) {

   average += arr[i][i2];

   ++counter;

  }

 }

}

cout << endl << "Average: " << average / counter;

}

Популярно: Информатика