Program lol;
Var
x,y:integer;
p:boolean;
Begin
Readln(x,y);
P:= (x>2) and (y>3);
Writeln(p)
<span>End.</span>
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
Var x,y: integer;
begin write('Введите два целых числа, разделяя их пробелом: ');
readln(x,y);
if x>y then
writeln('Сумма ',x,' и ',y,' равна ',x+y)
else
writeln('Произведение ',x,' и ',y,' равно ',x*y);
writeln('Задача решена');
<span>end.</span>
Ответ:
1) 32; 2) 25
Объяснение:
1) _ _ _ _ _ - 5 символов, на каждом месте может стоять 1 или 0 (т.к. алфавит двоичный), значит: 2 * 2 * 2 * 2 * 2 = 2^5 = 32/
2) _ _ - 2 символа, на каждом месте может стоять один из 5 символов алфавита, значит 5 * 5 = 25
12. графический редактор Gimp
офисный пакет OpenOffice
браузер Opera
4. хранить копию на DVD-диске
распространять измененную версию
исправлять явные ошибки