0001
0010
0011
0100
0101
0110
0111
1000 1001101010111100
11011110. 1111
Решение смотри в приложенном скриншоте.
Program skorohodov20001;var a: integer ; Begin a:=0; writeln ('BBedite 4islo'); readln (a); if (a> 3) and (a < 11) then begin writeln('Prinodleshit') end else begin writeln('Ne prenodleshit') ; end; 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.