Вычислить сумму ряда 1+1.5+2+2.5+...+30
Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
1 задание 2DF = 735 из шестнадцатиричной системы в десятичную
1. На картинке.
2. (1+2+3)/2=3
3.Если сумму чисел 5 и 10 умножить на 2, то получится 30.
Левым сверху рисунок нужно его раскрасить одну клетку чтоб похоже была на серидину снизу
Надеюсь я ответил на твой вопрос