Uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer;
begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);<span>end.</span>
Раз Никита с Костей и Костя с Юрой играют на разных инструментах, а всего у нас два вида инструментов, то тот Никита с Юрой играют на одинаковых инструментах, а Костя на другом ⇒ Костя играет на скрипки, а Юра с Никитой - на гитарах
поскольку условие Или, то должно выполняться хотя бы одно условие
запись 1: пол Ч, Фізика < Біологія (68 < 70) - подходит
запись 2: пол Ч, Фізика = Біологія (69 = 69 ) - не подходит
запись 3: пол Ж, Фізика < Біологія (73 < 74) - подходит
запись 4: пол Ч, Фізика > Біологія (81 > 80 ) - не подходит
запись 5: пол Ж , Фізика > Біологія (79 > 75 ) - подходит
запись 6: пол Ж, Фізика < Біологія (66 < 70) - подходит
Ответ: 4 записи
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.