Никита227
?>

С ДАНО В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 76 символов в этой кодировке.

Информатика

Ответы

Adno1578
{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a < h) and (b < h) then
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end;
else begin
WriteLn('Основания не меньше h!');
ReadLn;
end;
gena1981007
{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a < h) and (b < h) then
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end;
else begin
WriteLn('Основания не меньше h!');
ReadLn;
end;

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

С ДАНО В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 76 символов в этой кодировке.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ПетровичЖивотовская1245
svetarakityanskaya
Natalya1895
osipovasalex5316
sohrokova809
reception
vallzh8328
Sergei1805
Leonidovich_Elena771
antoska391
Nikolai710
notka19746
соловьев_Куркина
Amulenkov
verkop9