Говорить про вес луны не сосвсем корректно, так как это непосредственно от планеты, на которой она лежит. Масса её равна 7,3477×10^22 кг.
<span>Расстояние между Землей и Луной равно <span>384400 км.</span></span>
Program chet;
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('----------');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.
//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
К сообщению можно приложить фотографию, аудиофайл, документ - при общении в соц.сетях и с помощью электронной почты.
Можно послать сообщение нескольким адресатам одновременно - при общении в соц.сетях и с помощью электронной почты.
Можно вставить таблицу в текст сообщения - при помощи электронной почты.
Ответ: 111101.