// В классе Д девочек и М мальчиков. За контрольную работу по математике было //получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?
Var d,m,p,h,t,k: word;
begin
writeln('Введите количество девочек');
ReadLn (d);
writeln('Введите количество мальчиков');
ReadLn (m);
writeln('Введите количество полученных пятерок');
ReadLn (p);
writeln('Введите количество полученных четверок');
ReadLn (h);
writeln('Введите количество полученных троек');
ReadLn (t);
writeln('Введите количество полученных двоек');
ReadLn (k);
d:=d+m;
p:=p+h+t+k;
If d=p then writeln ('Все ученики присутствовали на контрольной');
If d>p then writeln ('Не все ученики присутствовали на контрольной');
If d<p then writeln ('Вы ошиблись при вводе количества учеников или количества оценок');
Для того, чтобы получить редактируемый текст из его графического изображения, служат программы оптического распознавания текста (OCR - Opical Character Recognirion). Они могут быть сопряжены со сканером и тогда текст создается непосредственно после сканирования оригинала, либо работают с графическими файлами различных форматов, содержащих изображение текста. Хорошая программа сама находит на листе все, похожее на текст и даже умеет подбирать подходящее начертание и размеры шрифта. Из русскоязычных программ наиболее популярны программы ABBYY FineReader и OmniPage.
//получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?
Var d,m,p,h,t,k: word;
begin
writeln('Введите количество девочек');
ReadLn (d);
writeln('Введите количество мальчиков');
ReadLn (m);
writeln('Введите количество полученных пятерок');
ReadLn (p);
writeln('Введите количество полученных четверок');
ReadLn (h);
writeln('Введите количество полученных троек');
ReadLn (t);
writeln('Введите количество полученных двоек');
ReadLn (k);
d:=d+m;
p:=p+h+t+k;
If d=p then writeln ('Все ученики присутствовали на контрольной');
If d>p then writeln ('Не все ученики присутствовали на контрольной');
If d<p then writeln ('Вы ошиблись при вводе количества учеников или
количества оценок');
end.