Var
x1,x2:real;
begin
Write('Введите x1,x2: '); Read(x1,x2);
if x1=x2 then Writeln('Вычислений нет')
else Writeln((x1+x2)/2)
end.
Использовать Чертежник
алг
нач
нц 2 раз
опустить перо
сместиться на вектор (0, 2)
сместиться на вектор (3, 0)
сместиться на вектор (0, -2)
сместиться на вектор (-3, 0)
поднять перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 1)
опустить перо
сместиться на вектор (3, 0)
сместиться на вектор (0, -2)
сместиться на вектор (-3, 0)
сместиться на вектор (0, 2)
поднять перо
сместиться на вектор (0, -1)
сместиться на вектор (2, 0)
кц
кон
Вам нужно определить сколько будет переплачено за 9 лет? Тогда:
Находим сколько переплачено в год - 1.000.000 / 100 % = 10.000 рублей - 1 %
Процентная ставка 4, значит 10.000*4 = 40.000 рублей (переплата в год).
И теперь умножаем на 9 лет: 40.000*9 = 360.000 рублей.
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.
1. разогреваем сковороду
2. налить на сковороду не много масла
3. разбиваем яйца.
4. солим
5. выключаем огонь.
Вот и все в общем то)