<span>тильда (~) ,</span><span>знак номера (#) ,п</span><span>роцент (%) ,</span><span>амперсанд (&) ,</span><span>звездочка (*) ,</span><span>фигурные скобки ({}) ,</span><span>обратная косая черта (\) ,</span><span>двоеточие (:) ,</span><span>угловые скобки (<>) ,</span><span>вопросительный знак (?) ,</span><span>косая черта (/) ,</span><span>знак плюс (+) ,</span><span>вертикальная черта (|), </span><span>знак кавычек (")</span>
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
01234,10234,20134,30124,40123,32104,42310,23104,43210,21043,10432,34021,41320.вроде бы все если что дабавте сами!!
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>
1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.