Целая-часть (неделя-день недели)
род-вид (цветок-маргаритка)
последовательность (среда,четверг)
<span>причина-следствие (жара-жажда)</span>
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
1 буква=1 байт=8 бит
(кол-во слов в сообщении умножь на 8)
Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>