Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.
Моделирование это процесс создания модели, а модель это результат модеоирования
(10012+41001216)*740=30348308720
11 областей. честно говоря это я так думаю
//Pascal ABC.NET v3.1 сборка 1172
Var
a:real;
begin
readln(a);
if a>0 then writeln('Положительное, ',a/2) else
if a<0 then writeln('Отрицательное, ',sqr(a)) else
writeln('0');
end.
Пример ввода:
-12
Пример вывода:
-, 144