Регистрация
aarmen020
08.08.2022 22:19
Информатика
Есть ответ 👍

Практическая работа №22 Тема: Разработка линейных алгоритмов
Задание:
1. Задача 1. Найти площадь треугольника со сторонами a,b и с (линейный алгоритм). Составить
блок-схему. Набрать программу в PascalABC и протестировать.
2. Задача 2. Найти сумму, разность, произведение и частное двух чисел, введенных с клавиатуры.
Составить блок-схему. Набрать программу в PascalABC и протестировать.

Порядок выполнения:

1.На рабочем столе найти значок и открыть программу PascalABC
2.Набрать код программы.
3.Для запуска программы нажать зеленую стрелку.

139
201
Посмотреть ответы 1

Ответы на вопрос:

torimuse
torimuse
4,5(49 оценок)
Вроде так: var b, c: integer; begin   writeln('введите ваш возраст');   readln(b);     if b < = 0 then writeln('вам 0 лет')         else begin           c : = b mod 100;           if (c > = 10) and (c < = 20) then writeln('вам ', b, ' лет')           else               case (b mod 10) of                 1: writeln('вам ', b, ' год');                 2..4: writeln('вам ', b, ' года');                 5..9, 0: writeln('вам ', b, ' лет')                 end;     end;   writeln('для выхода нажмите < enter> ');   readln; end .

Популярно: Информатика