#include "iostream"
#include "stdlib.h"
#include "locale.h"
using namespace std;
int main(){
setlocale(LC_ALL, "russian");
int A, B;
cout << "Ââåäèòå ïåðâîå ÷èñëî: "; cin >> A;
cout << "Ââåäèòå âòîðîå ÷èñëî: "; cin >> B;
if (A > B){
cout << "Âòîðîé" << endl;
}else if (A < B){
cout << "Ïåðâûé" << endl;
}else cout << "Îíè ðàâíû" << endl;
system("pause");
return 0;
}
Var a,b,c,x:integer;
begin
x:=random (899) +100;
writeln('x= ', x);
a:= x div 100; {первая цифра}
b:=(x mod 100) div 10; {вторая цифра}
c:= x mod 10; {третья цифра}
writeln(a,',',b,',',c);
end.
Папки как шкафы, как тумбочки в твоём доме. Они комбинируют то, что тебе нужно в одно место. Для летней одежды у тебя есть определённый раздел в шкафу, для нижнего белья - другой.
Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
max := 1;
writeln('Массив до: ');
for i := 1 to N do begin
a[i] := random(10);
write(a[i]:3);
if(a[i] > a[max]) then max := i;
end;
writeln(#10, 'Массив после: ');
for i := 1 to N do begin
if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];
write(a[i]:3);
end;
writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);
end.