Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
-Вы пользуетесь интернетом (варианты: да, нет)
-Вы пользуетесь интернетом по долгу служы (да. нет)
-Вы пользуетесь интернетом для личных целей (да. нет)
-Какое количество времени Вы затрачиваете на пользование интернетом (час, два-три, более 3-х)
-Каким интернетом Вы пользуетесь (варианты-виды интернета xDSL, кабельный, модем-флешка точные названия не знаю)
-Вас устраивает качество, скорость используемого интернета (да. нет)
-Каким тарифом Вы предпочитаете пользоваться (базовый, лимитный, комбинированный)
-Вас устраивает сумма оплаты за используемый тариф (да, нет)
Вопросы личного характера:
-укажите пожалуйста Ваш возраст (до 15, 16-25 лет, 26-45 лет, 46-55 лет, более 55 лет)
-Ваш социальный статус ( школьник, студент ит. д. )
<span>-Ваш уровень дохода (указать уровни) </span>
38.89 получается 38.9,а 37.56 получается 37.6 их сумма 76.5
Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.