В паскале есть очень подходящий для данного случая оператор case:
case k of
18..20: Writeln('ваша оценка 5. Молодец!');
14..17: Writeln('ваша оценка 4.');
10..13: Writeln('ваша оценка 3.');
else Writeln('ваша оценка 2.');
end;
Анимация , ну или (слайд шоу)
Расписываешь число по степеням основания СС:
если целая часть, то последнюю цифру умножаешь на основание СС в нулевой степени+предпоследняя на основание в 1 степени+...
если дробная часть, то первую цифру после запятой умножаешь на основание в -1 степени, вторую на основание в -2 степени+ ...
а)827
б)1031
в)181,5
г)262,65625
д)Пример перевода 671,24(8)=
= 1+56+384+0,25+0,0625=441,3125(10)
е)1050,375
Var a,b:array[1..2,1..3]of integer;
i, j:byte;
Begin
for i:=1 to 2 do
for j:=1 to 3 do readln(a[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 3 do write(a[i,j]:3);
writeln
end;
for i:=1 to 2 do
for j:=1 to 3 do
if i = 1 then b[i,j]:=a[2,j] else
b[i,j]:=a[1,j];
for i:=1 to 2 do
begin
for j:=1 to 3 do write (b[i,j]:3);
writeln
end;
readln
End.
write
Вставьте эту формулу в ячейку B1:
=ЕСЛИ(A1=5;"Молодец";ЕСЛИ(A1=4; "Хорошо";"Плохо"))