///Pascal abc.
Самый простой способ (программа в файлике);
Проверка:
Введите число: 547
Результат: 745
Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства
var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a<b;
s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.
#include <stdio.h>#include <iostream>#include <math.h>
int main() {
system("chcp 1251");float perimetr, ploshad, a, b;printf("Введите стороны прямоугольника (a,b): ");scanf ("%f, %f", &a, &b);perimetr = (a+b)*2;ploshad = a*b;printf("\n Периметр равен: %.2f \n Площадь равна: %.2f \n", perimetr,ploshad);
system ("pause");return 0;}