Спользователь может вводить наименования и дату до какого момента ее надо выполнить. если сроки пройдут отобразить текст синим цветом, а если выполнено нужно нажать на кнопку добавить и положить во local storage все выполненые (javascript)

и какая вероятность что пользователь не ошибется?)))

 

program i_guess_number;
uses crt;
var changes: array [1..2,1..10] of integer;
i,op,n:integer;
s:string;
res:real;

BEGIN
    randomize;
    writeln("Загадайте число");
    n := 0;
    repeat
        n := n+1;
        i := random(10);
        op := random(4);
        
        case op of
            1: s := "Прибавте ";
            2: s := "Отнимите ";
            3: s := "Умножте на ";
            else s := "Поделите на ";
        end;
        
        writeln(s, i);
        changes[1,n] := op; {запоминаем действия}
        changes[2,n] := i;
    until n = 10;
    
    writeln("Что вышло?");
    readln(res);
    
    for i := n downto 1 do { производим обратные действия }
    begin
        case changes[1,i] of
            1: res := res - changes[2,i];
            2: res := res + changes[2,i];
            3: res := res / changes[2,i];
            else res := res * changes[2,i];
        end;
    end;
        
    writeln("Вы загодали ",res);
END.

 

 

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
const
  k=4; //количество классов
  u=18; // количество учеников в классе
var
  a:array[1..k,1..u] of real; // массив с ростом
  n:array[1..k] of integer; // массив результатов
  i,j:integer; // счетчики циклов
  m:real; // средний рост ученика в классе
begin
  for i:=1 to k do begin
    Writeln('Введите рост учеников ',i,'-го из классов');
    m:=0;
    for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end;
    m:=m/u;
    n[i]:=0;
    for j:=1 to u do
      if abs(a[i,j]-m)>5.0 then Inc(n[i]);
    end;
  Writeln('Количество учеников с ростом, отличающимся от среднего');
  Writeln('по каждому из классов более, чем на 5');
  for i:=1 to k do Write(n[i]:5)
end.

Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать)
Введите рост учеников 1-го из классов
168 174 181 172 175
Введите рост учеников 2-го из классов
162 173 170 158 183
Введите рост учеников 3-го из классов
157 185 159 168 167
Введите рост учеников 4-го из классов
170 173 176 168 171
Количество учеников с ростом, отличающимся от среднего
по каждому из классов более, чем на 5
    2    3    3    0