var
m: Real;
i: Integer;
begin
m := 1.5;
for i := 1 to 7 do begin
WriteLn (i, ' сентября количество биомассы составляет ', m:10:7, ' т' );
m := m * 1.3;
end;
end.
Память находится в компьютере.
Солнце часть солнечной системы .
Автомобиль дороже велосипеда.
Колесо часть автомобиля.
C++
Выделить код
1 int f(int k) {
2 int p=k-10, q=k-190;
3 return k<1 || k>222 ? -1 :
4 k<10? k : k<190 ? (p&1 ? p%20/2 : p/20+1) :
5 (q>30 ? q%2 : q%3==0 ? 1 : q%3==1 ? 0 : q/3);}
#include <stdio.h>
#include <stdlib.h>
int main()
{
int a,b,c,d1,d2,d=0,n=0;
srand (time(NULL));
a = rand() % 50 + 1;
b = rand() % 50 + 1;
c = rand() % 20 + 1;
while (c>a) a = rand() % 50 + 1;
while (c>b) b = rand() % 50 + 1;
printf ("%d %d %d\n", a, b, c);
d1 = a; d2 = b;
while (d1>=c){
d2 = b;
while (d2>=c){ n++; d2 -= c; }
d1 -= c;
}
printf("%d\n", n);
for (int i=0; i<(10-1); i++) d += n;
d = -d;
printf("%d", d);
return 0;
}
Пример:
<span>27 42 4
60
-540</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Rows.SelectMany(x->x);
var max:=s.Max;
Writeln('Максимум ',max, ' встречается ',
s.Where(x->x=max).Count,' раз(а)')
end.
<u>Пример</u>
Количество строк и столбцов в матрице: 6 11
*** Исходная матрица [6,11] ***
15 19 26 0 -21 -42 8 -9 -7 21 19
-7 -49 23 -10 8 -9 -50 -31 8 -49 -36
-42 -45 -49 -11 3 -45 -20 45 -29 39 13
9 45 -19 9 -31 -38 29 27 39 13 36
-47 28 44 8 -22 28 7 -25 -3 -9 39
1 11 20 -1 40 5 2 -40 -2 -1 30
--------------------------------------------
Максимум 45 встречается 2 раз(а)