Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? Ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
* - любое количество любых символов, в т.ч. их отсутствие
? - 1 любой символ, обязательно присутствующий
1) <span>*e??e.d?*
else.dos
penie.doc
chtenie.do
varenie.dll
aaaaeaae.daa
2) </span><span>*x??r.t?*
</span>dexter.txt
exter.tx
xaar.ta
aaaaaxaar.taa
a1234x56r.t789
uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
Ответ:
1)точно такое количество букв?
2)планшет
3)процессор
4)ОЗУ
5)шина
Если символ кодируется одним байтом, то объем сообщения = 256*1 = 256 байт.
Если символ кодируется двумя байтами, то объем сообщения = 256*2 = 512 байт.