Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y,z: longint;
begin
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
end.
program ssd;
uses crt,graph;
var a,a1,a2,a3: integer;
clrscr;
writeln('введите трехзначное число');
readln(a);
a1: = a mod 10;
a2: =(a div 10) mod 10;
a3: = a div 100;
writeln(' ',a1,a2,a3);
readkey;
var i: integer;
s: string;
s: ="abcdefghijklmnopqrstuvwxyz";
for i: = 1 to length(s) do
writeln(s[i],' = ', ord(s[i]));
7 бит, следовательно 2^7=128
Популярные вопросы