// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 12);
var x:=ReadInteger('x =');
a.Where(t -> t > x).Println();
end.
Цикл будет работать до числа 15. Переменная s будет увеличиваться на 1, если остаток при делении равен 1. Получается, что s будет увеличиваться при нечетных числах. Всего их 8, соответственно s = 8. Таблицу смотри во вложении.
Для завантаження фільмів на сайт YouTube потрібно створити власний канал, який у подальшому буде містити добірку відеофайлів користувача. Користувач може керувати доступом до перегляду кожного з відеофайлів, установлюючи певний рівень конфіденційності.
Значна частина редакторів відео мають засоби для розміщення відеофільмів в Інтернеті, наприклад така програма, як WindowsMovieMaker.
Мультимедійні файли, призначені для розміщення в Інтернеті, називають подкастами, а тих, хто створює такі файли, подкастерами.
var
a,b,c,S,p:real;
begin
readln(a);
readln(b);
readln(c);
Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.