Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
227 бит = 227 / 8 / 1024 / 1024 Мбайт = 0.0000270605 <span>Мбайт </span>
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
1.редактирование
2.кодировка
3. двоичный код весит 1 бит/один символ