<span>количеством операций в секунду</span>
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
h = 30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT(((a(n)) - 6 )/ 10) = (((a(n)) - 6) / 10) AND a(n)<h THEN h = a(n)
NEXT i
PRINT h
END
Маша не говорит по-французски (она не играет на скрипке). Она же не знает итальянского. Т. е. она знает либо английский, либо немецкий.
Оля - виалончелистка - не знает итальянского, английского и французского - т. е. говорит на немецком.
Лена не играет на арфе, но, т. к. рояль и виалончель уже заняты, то играть она может только на скрипке, и говорит она по-французски.
Соответственно Валя играет на арфе и говорит по-итальянски. А Маша говорит по-английски.
Итого:
Маша - Рояль, Английский
Оля - Виалончель, Немецкий
Лена - Скрипка, Французский
Валя - Арфа, Итальянский