Program chisla;
var a,b:integer;
begin
read (a);
if
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.
Вам нужно подключить библиотеки iostream и cmath.
там, где у вас две строки #include, впишите в первую <iostream>
и во вторую <cmath>. Должно получиться так :
#include <iostream>
#include <cmath>
Что именно нужно распознавать на картинке? Текст? Нет какой-то обычной команды. Это нужно несколько лет разработки, куча потраченных нервов и денег, чтобы в итоге сделать распознавание чего-либо на картинке.
Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Победа';
for var i:=1 to s.Length do Writeln(s[i:])
end.
<u>Результат</u>
Победа
обеда
беда
еда
да
а