Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Clean Master, Uninstall Toll, CCleaner Proffessipnal Portable.
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Разделить число в двоичной по три цифры начиная с правого разряда.
Из 1010010 получится 1 010 010.
Потом заменяешь каждую тройку соответствующим числом восьмиричной системы.
0 - 000
1 - 001
2 - 010
3 - 011
4 - 100
5 - 101
6 - 110
7 - 111
Из числа 1010010 получаем число 122.
Var
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.