Естественная форма - обычная привычная форма без мантисы и тп
а) 0,001283 х 10^5 = 0,001283 х 100000 = 128,3
б) 13,4501 х 10^0 = 13,4501 х 1 = 13.4501
в) 0,923Е-3 = 0,923 x 10^(-3) = 0,923 x 0.001 = 0,000923
I=K*i
i=2048:256=8 бит 1 символ
символов в алфавите
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
1) Информация для человека — это знания<span> которые он получает из различных источников.</span>
2) Информация понятна, если она выражена на языке доступном для получателя.
<span>3) Сообщение может пополнить </span>знания<span> человека, если содержащиеся в нем сведения являются для человека понятными и новыми.</span>
4) Знания человека можно разделить на две части - факты и правила.
<span>5) К фактам относятся </span>знания<span> о определенных явлениях, событиях, свойствах объектов и зависимости между объектами.</span>
<span>6) К правилам относятся </span>знания<span> о последовательностях действий, направленных на достижение некоторой цели.
</span>
1) В грозу нередко возникают сильные ветра разрушительной силы<span>
2) </span>Куликовская битва состоялась 8 сентября 1380 года.<span>
3) </span><span>Золото, серебро, платина относятся к драгоценным металлам.
4) </span><span>Луна является спутником Земли</span>
Делал на ABC Pascal:
program qq;
uses crt;
var n:integer;
begin
clrscr;
writeln ('Введите число: ');
readln (n);
if not (n mod 2=0) and (n>10) and (n<20)
then
begin
n:=n*n;
writeln ('Квадрат этого числа равен: ',n);
end
else
writeln ('Число не подходит условию задачи');
readkey;
end.