1. даны три числа a, b, c. определить, какое из них равно d. если равных d чисел нет, то найти максимальное из d-a, d-b, d-c. примеры: • вход: 10 4 15 4 выход: второе число равно 4 • вход: 5 13 9 7 выход: максимальная разность 2. 2. составить программу, которая при введенном возрасте человека правильно печатает: «вам х лет (год, года)! ». например: • вход: 44 выход: вам 44 года! • вход: 31 выход: вам 31 год! • вход: 11 выход: вам 11 лет! 3. одной банки краски хватает на покраску x м2 площади. забор имеет форму прямоугольника: высота а м, длина b м. сколько целых банок краски необходимо приобрести, чтобы покрасить забор? вход: х=5 а=3 b=200 выход: 120 вход: х=3.35 а=2.5 b=12 выход: 9 4. даны 2 числа. если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. вход: 25 -8 выход: -400 вход: 5 3 выход: 8 2

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
begin
  var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;
  if a=d then begin Println('Первое число равно',d); exit; end;
  if b=d then begin Println('Второе число равно',d); exit; end;
  if c=d then begin Println('Третье число равно',d); exit; end;
  a:=d-a; b:=d-b; c:=d-c;
  var max:=max(max(a,b),c);
  Println('Максимальная разность->',max);
end. 

2)
begin
 var a:=ReadInteger('Введите возраст->');
 if (a mod 10=1) and (a<>11) 
   then writelnformat('Вам {0} год',a)
   else
      if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) 
        then writelnformat('Вам {0} года',a)
        else writelnformat('Вам {0} лет',a);
end.

3)
begin
 var (x,a,b):=readreal3('Введите x,a,b->');
 WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));
end.

4)
begin
 var (a,b):=readreal2('Введите a,b->');
 if a+b>10 
   then println(2*a*b)
   else 
     if a>b 
       then
        Println(a+b,a-b)
       else
        Println(a-b,a+b);
end.

 
  

1) Компьютер - ( англ.- вычислитель ) - это универсальное у-во для хранения, обработки и передачи информации. В настоящее время его основная работа - управление различными информационными функциями.
2)Табличный процессор, т.к. эта программа относится к прикладному ПО
3) СИСТЕМЫ ПРОГРАММИРОВАНИЯ, но не СИСТЕМНЫЕ ПРОГРАММЫ
4) А.
5) С.
6)С. Текстовые и графические редакторы относятся к прикладному ПО
7) Сложно найти ответ, но я знаю определение:
ОС - система программ для управления ресурсами компьютера и организации взаимодействия с человеком.
8) Драйверы - программы, необходимые для работы разных устройств подключенных к компьютеру. Скорее Б
9)Не уверяю, но по моему А
10)К операционным системам? Этот вопрос я не поняла

Команда For:

For x:=1 to 9 do Writeln(x)

Команда While:

x:=-5;

While x<9 do

begin

y:=abs(x);

Writeln(y);

x:=x+1

end;

Объяснение:

Цикл For:

For переменная-счетчик := начальное значение to конечное значение do

For x:=1 to 9 do

x - переменная-счетчик

1 - начальное (минимальное) значение переменной-счетчика

9 - конечное (максимальное) значение переменной-счетчика

начальное значение <= конечного значения  (если это не так, то тело цикла не выполнится ни разу)

В цикле переменная-счетчик автоматически увеличивается на 1 каждый раз при выполнении тела цикла, пока не достигнет конечного значения включительно.

В цикле While переменную надо увеличивать (или уменьшать) в теле цикла, но зато это можно делать на нужный шаг.