Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.
Верно ты думаешь можно переписать
1. Всякая записанная речь (литературное произведение, сочинение, документ и т. п., а также часть, отрывок из них).
2. В лингвистике: письменная или звучащая речь, которая внутренне организована и относительно закончена