Можно ещё использовать оператор выбора 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.
Var
y: real;
begin
y := tan(3 * Pi);
y := y * y; {квадрат}
y := y * y; {четвертая степень}
y := (1 - y) / (ln(8) / ln(3));
writeln('y=', y)
end.
1.Запустить Power Point
2.Выбрать тему.
3.Кликнуть по "Создать"
4.В разделе "Главная" кликнуть по "Создать слайд" и выбрать сравнение.
5.В разделе "Файл" кликаем по "Сохранить как" и сохраняем.
Жорсткий диск,ссд накопитель,відеокарта,процесор