Ввести число 1
|
Ввести число 2
|
Если число 1 больше числа 2
да нет
| |
чиcло1=число1*2 чиcло1=число1^2
чиcло2=число2^2 чиcло2=число2*2
|_____________________ |
|
Вывести число 1
|
Вывести число 2
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
Ответ:
2
Объяснение:
(x<3) и не(x<2) ===== (x<3) и (х≥2)
Примерно 0.375 гбайт и 380.930 кбайт.
Для такой сети возможны следующие маски:
255.255.240.0
255.255.248.0
255.255.252.0
Наименьшее значение третьего слева байта: 240