Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N
===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
Первый вариант:
Var
A:real;
k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.
Var k:integer;
S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.
Пример работы программы:
Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.