Электронный журнал (АСУ);
единая энциклопедия для учащихся онлайн, навигация по предметам (ИПС);
обучающие программы, позволяющие обучаться дистанционно (АСУ);
система, анализирующая успеваемость, позволяющая определять причины плохой успеваемости и давать рекомендации по ее улучшению (ЭС).
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
1)создаёт папку этого документа.
2)Вставка видео,картинок,
нельзя поменять структуру,по центру/сбоку и т.п. сплошной текст
var
x, sum:integer;
Begin
Write('Введите число '); Readln(x);
while (x > 0) do begin
sum:= sum + x mod 10;
x:=x div 10
end;
if (sum mod 2 = 0)then
Writeln('YES')
else
Writeln('NO');
end.