Ответ:
да, нужно сменить номер телефона.
Объяснение:
ибо написать электронную почту поддержку WhatsApp
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Write('S=',ReadlnString.ToReals.Sum)
end.
<u>Пример</u>
14.72 253 -15.862 0.562345 17
S=269.420345
Кенгуру-в длину 6-10м,в высоту-до 3м
Тигр-4-5м
Долгоног-3-5м
Снежный барс-в высоту 3-4м
Антилопы,олени,зубр,страус -в высоту 2м
Озерная лягушка-в длину 1м
Зелёный кузнечик-в длину 2м
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
Свойство такое, что а), в), г) - арифметические прогрессии, б) - геометрическая.