...нужен Топор
...огород - лейка
...во льду прорубь
...это еж.
2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
begin
var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;
a.Println;
end.
8 0 0
5 0 3
5 3 0
2 3 3
2 5 1
7 0 1
7 1 0
4 1 3
4 4 0
или нужно именно за 7 переливаний?
Как-то так...:Ъ
6.1
#include <iostream>
#include <ctime>
#include <random>
using namespace std;
mt19937 gen(time(0));
uniform_int_distribution<> uid(0, 9);
int main()
{
int a[5][5];
for (int i = 0; i < 5; ++i) {
for (int j = 0; j < 5; ++j) {
a[i][j] = uid(gen);
cout << a[i][j] << " ";
}
cout << endl;
}
return 0;
}