Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
#define N 7
#define M 3
#include <iostream>
using namespace std;
int main() {
float Y[N][M];
// Ввод данных
for (int i = 0; i < N; i++)
for (int j = 0; j < M; j++)
cin >> Y[i][j];
float sum = 0, prod = 0;
for (int i = 0; i < N; i++) {
prod = 1;
for (int j = 0; j < M; j++) {
prod *= Y[i][j];
}
sum += prod;
}
cout << "Sum: " << sum << ".\n";
return 0;
}
const
n = 5;
m = 5;
var
a, b: array[1..n, 1..m] of integer;
c: array[1..n, 1..m] of real;
i, j, s, count: integer;
begin
for i := 1 to n do
for j := 1 to m do begin
a[i, j] := random(20);
b[i, j] := random(20);
s := s + a[i, j] + b[i, j];
inc(count);
end;
writeln('Ср. арифметическое эл.: ', s / count);
for i := 1 to n do
for j := 1 to m do begin
c[i, j] := s / count;
write(c[i, j], ' ');
if(j mod m = 0) then writeln;
end;
end.
1 - 2
2 - в
3 - в
4 - в
5 - в
6 - б
У нас это был 6 класс
Выбирайте любой из признаков.
1. Только Скайп не входит св состав операционной системы Windows.
2. Только Скайп относится к средствам коммуникации.
