//Pascal ABC.NET v3.1 сборка 1172
//3
Var
d:real;
begin
readln(d);
writeln(3.14*d);
end.
//4
Var
a:real;
begin
readln(a);
writeln('V=',a*a*a);
writeln('S=',6*sqr(a));
end.
//5
Var
a:real;
begin
readln(a);
writeln(a/100,' м');
writeln(a/100000,' км');
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите целое число:'));
if n.IsOdd then Println('Число нечетное')
else
if n=0 then Writeln('Ноль вводиить нельзя')
else Println('Число четное')
end.
P.S программа написана для Pascal.
program summa;
var
a, b, s : integer;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
s:=0;
for a:=a to b do
if a mod 3=0 then
s:=s+a;
writeln('Сумма: ',s);
end.
Ответ: сообщение состоит из 20 символов, то есть из 20 байтов, потому что 1 символ - 8 бит,а 8 бит-1 байт.
Естественные системы: <span>космические системы — галактики, системы звезд и планет, такие, как наша Солнечная система; системы животных и растений; молекулярные и атомные системы. </span>
Искусственные системы <span>создают люди.Система городского транспорта, система телефонной связи, система торговли и т. д. Само человеческое общество — это тоже система взаимосвязанных личностей, которые образуют разнообразные подсистемы: семьи, трудовые коллективы, партии, нации, расы и пр.</span>