Получится квадрат
Тут все легко просто представьте это в уме и все получится))
Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end
//Pascal
//Для натуральных чисел
var a, s, p:integer;
begin
write('Введите число = ');
readln(a);
s := 0;
p := 1;
while (a<>0) do
begin
p := p * (a mod 10);
s := s + (a mod 10);
a := a div 10;
end;
writeln( 'Сумма цифр числа = ', s);
writeln( 'Произведение цифр числа = ', p);
end.
//Если число отрицательное
var
s, p, a, b, c: integer;
f: boolean;
begin
write('Введите число = ');
readln(a);
if a < 0 then
f := true;
a := abs(a);
b := a mod 10;
a := a div 10;
c := a mod 10;
a := a div 10;
if f = true then
begin
p := (-a) * b * c;
s := -a + b + c;
end
else
begin
s := a + b + c;
p := a * b * c;
end;
writeln('Сумма цифр числа = ', s);
writeln('Произведение цифр числа = ', p);
end.
1. С сообщениями можно работать через Web интерфейс - быстрый доступ когда нужно но, ограниченный функционал и тормознутость интерфейса
2. Через протоколы POP IMAP - полный функционал, но нужно на каждое устройство ставить и настраивать клиентскую программу.
3. Через сервер Exchange. одни достоинства, но это только для корпоративной почты.
Говорить про вес луны не сосвсем корректно, так как это непосредственно от планеты, на которой она лежит. Масса её равна 7,3477×10^22 кг.
<span>Расстояние между Землей и Луной равно <span>384400 км.</span></span>