Y = 2 × a × b - c; a = 2, b = 6, c = -1,
y = 2 * 2 * 6 - (-1),
y = 4 * 6 - (-1),
y = 4 * 6 + 1,
y = 24 + 1,
y = 25.
Ответ: y = 25.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (y,m,b):=ReadInteger3('Введите год, месяц и день:');
try
var d:=(new System.DateTime(y,m,b)).Date;
Writeln(d.AddDays(1).ToString[:11]);
except
Writeln('Вы ввели неверные данные')
end
end.
<u>Примеры</u>
Введите год, месяц и день: 2017 5 8
09.05.2017
Введите год, месяц и день: 2017 12 31
01.01.2018
Введите год, месяц и день: 2016 2 28
29.02.2016
Введите год, месяц и день: 2017 11 31
Вы ввели неверные данные
Геолог, геодезист, строитель, геофизик
Sub My_VBA()
s = 0
Do
n = InputBox("введите число, 0 - конец ввода")
If n > 0 Then s = s + n
Loop Until n = 0
MsgBox "Сумма положительных чисел равна " + Str(s)
End Sub
Блок-схема во вложении