На каком языке надо? Если паскаль то держи: 1)Program A; Var a:Integer; Begin Write('Введите двузначное число'); Read(a); If (a>10) and (a<100) Then Writeln('Число является двузначным') Else Writeln('Вы ввели не двузначное число!'); End.
2)var i,a:integer; begin a:=2; for i:=1 to 20 do begin a:=a-1; writeln(a); end; end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b; var a:integer; begin write('Введите любое четное число= '); read(a); if a mod 2 = 0 then write('ответ= ',a/2) else write('Было введено нечетное число!'); end.
5)program d; var i,a:Integer; begin a:=2; for i:=1 to 20 do begin a:=a+10; writeln(a); end; end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
Все удачные наборы команд должны включать остановку на отметке 10 футов. На отметку 1 фут робот может попасть с одной команды A; на отметку 2 фута - с команд AA и B (всего 2 набора команд); на отметку 3 фута - с команд AAA, AB, BA и C (4 набора). Так как за одну команду робот может переместиться на 1, 2 или 3 фута, то для подсчета количества наборов команд, позволяющих роботу попасть на отметки N > 3, можно использовать формулу K(N) = K(N-1)+K(N-2)+K(N-3). K(4) = K(3)+K(2)+K(1) = 4+2+1 = 7 K(5) = K(4)+K(3)+K(2) = 7+4+2 = 13 K(6) = K(5)+K(4)+K(3) = 13+7+4 = 24 K(7) = K(6)+K(5)+K(4) = 24+13+7 = 44 K(8) = K(7)+K(6)+K(5) = 44+24+13 = 81 K(9) = K(8)+K(7)+K(6) = 81+44+24 = 149 K(10) = K(9)+K(8)+K(7) = 149+81+44 = 274 Так как вторая часть пути робота также имеет длину 10, то общее количество удачных наборов команд = 274*274= 75076
procedure Получить_и_вывести(n: integer; a: array of integer);
begin
Write('Вектор №', n, ': ');
a.Println;
Println('Количество инверсий:',
a.Pairwise.Where(p -> p[0] > p[1]).Count)
end;
begin
var (m, n) := ReadInteger2('Задайте M и N:');
var G := MatrRandom(m, n, -99, 99);
G.Println;
Writeln;
var A := G.Row(0);
Получить_и_вывести(1, A);
var B := G.Row(1);
Получить_и_вывести(2, B);
var C := G.Row(2);
Получить_и_вывести(3, C);
var D := G.Row(3);
Получить_и_вывести(4, D)
end.