A, b, c = map(int,input().split())
k = (a+1)//2 + (b+1)//2 + (c+1)//2
print(k)
Пример:
20 21 22
32
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadArrInteger(20);
var b:=a.Where(x->x in [10..99]).Where(x->x.IsEven);
if b.Count>0 then Writeln(b.Min)
else Writeln('Не найдено');
end.
<u><em>Тестовое решение:</em></u>
7497 9647 3684 848 6349 37 1281 3739 465 7784 16 406 6936 621 4960 98 1894 3825 3369 6566
16
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.