<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99)).ToArray;
if a.Length=0 then Writeln('NO')
else Writeln(a.Average)
end.
Регистр
.......................................
//Java
<span>class Main {
public static void main(String[] args){
String a = "t.e.x.t.o.f.t.h.i.s.t.e.x.t";
int b = 0;
for (int i = 0; i < a.length(); i++)
if (a.charAt(i) == '.')
b++;
System.out.println(b);
}
}
Проверка:
$ javac Main.java
13</span>
var i,a,n,k:longint;
var mas:array[1..100000000] of longint;
begin
k:=0;
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите число A');
readln(a);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;
writeln(k,' элементов массива больше числа',' ', a);
end.
<span>CD-RW - многоразовый диск. Т.е. можно бесконечное кол-во раз записывать и удалять данные с него. Минусы: может посадить лазерную головку в дисководе.</span>
<span><span>CD-R - одноразовый диск. Если запишешь ЛЮБУЮ информацию, больше уже ничего не сможешь записать или удалить с этого диска.</span></span>
<span><span>
</span></span>
<span><span><span> CD-ROM это тип дисков, всключает в себя <span>CD-RW и <span>CD-R диски.</span></span></span></span></span>
<span><span><span><span><span>
</span></span></span></span></span>
<span><span><span><span><span>P.s.<span> Если Вы отметите любое решение как "Лучшее", то к Вам вернётся 25% потраченных пунктов на это Задание :)</span></span></span></span></span></span>
