begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
4литра черной в бутыли
5л белой в ведре
3л синей в круглой банке
2л желтой в плоской
Алг Сумма
нач
цел a, b, s, i
вывод "Введите два числа", нс
ввод a, b
s:=0
нц для i от a до b
s:=s+i*i
кц
вывод "Сумма квадратов = ", s
кон
Как-то так... )))
Смотри картинку...
Формула для надбавки:
=ЕСЛИ(B2<=15;0;ЕСЛИ(B2>25;A2*0,3;A2*0,15))
=ЕСЛИ(стаж<=15;0;ЕСЛИ(стаж>25;оклад*0,3;оклад*0,15))
Формула для всего:
=A2+C2
=оклад+надбавка