Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.
Есть два типа исполнителей, формальные и неформальные. Формальные исполняют ровно то, что им приказывают, и имеют конечный список допустимых инструкций. Неформальные исполнители сами решают, как им достичь цели, пути, как они этого добиваются, могут изменяться.
Формальные исполнители:
- избушка (избушка становится к лесу задом, а к говорящему передом)
- печь (на которой катался Емеля)
Неформальные исполнители:
- Бабка (которую Дед попросить испечь колобок)
- Василиса Премудрая (которая в форме лягушки выполняла приказы короля, которые ей передавал Иван-царевич)
Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.
Через if :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.
На скриншоте ===========
Стандартная шахматная нотация через пробел (a2 a4 ) для ввода тоже работает )) ну и 35 37 тоже....
BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.