Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.
Неактуальной т.е. сейчас она не требуется в спросе, пример: Петя выиграл Васю вчера. (это было вчера тем самым на тот момент она была новостью а сегодня как заметка)
Полезной пример: светофор нужно переходить на зеленый свет (это для 1 классов), а если для взрослых молекула ДНК несет информацию о человеке (это тогда для старших людей)
Бесполезной пример: надо идти кушать по утрам и после школы (эта информация повседневная и она является обыденной следственно тебе она не интересна)
Понятной: язык - это знаковый способ представления информации или билеты в кино можно посмотреть на сайте кинотеатра (тебе ясно и изложено рассказано что да как)
Программа на Паскале:
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.
В основном литературные сочинения не большие в размере , смотря какой это тип текста если это сказка она длинная если это стих он обично короткий , вообщем это зависит от типа.
Короткие : стихи , пословицы , загадки.
Средние : биография , краткое описание , небольшие рассказы
Большие : романы , сказки , фантастика ,ну ив таком роде)