Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
Надо знать команды и написать их
Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
Это либо техническая,биологическая,биохимическая,реальная система, либо это устройство для управления
Program PrimeNumber;
Uses Crt;
var i,f,n:integer;
begin
clrscr;
write('Введите число:');
readln(n);
f:=0;
for i:=2 to trunc(sqrt(n)) do
if (n mod i)=0 then f:=1;
if (f=0) then writeln('Число является простым')
else writeln('Число не является простым');
readkey;
end.