BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
Всё очень просто, черточки на линиях идущих из центра ответствуют значениям 5, 10 и 15, линий всего 5, значит диаграмма построена по 5 параметрам, следовательно взглянув на диаграмму мы видим что первое значение у нас 4, соответствует ячейке А1, второе значение 10 соответствует ячейке С1, третье значение 15 соответствует ячейке D1, четвертое значение 4, соответствующее ячейке Е1 и пятое значение 8 соответствующее ячейке F1
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
Потому что ей это не нужно!
Она и так хорошо справляется ;)
<span>количеством операций в секунду</span>