ВВЕРХ
ВНИЗ

Внимание

Please enter your DISQUS subdomain in order to use the 'Disqus Comments (for Joomla)' plugin. If you don't have a DISQUS account, register for one here

Квадраты и модули чисел

На этой странице дано решение примеров Begin10 - Begin11 из задачника Абрамяна.

Begin10. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

После ввода a и b вычисляем их квадраты, причем, записанные в сами переменные a, b. Потом по очереди выводим искомые величины.

Блок схема. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
var
  a, b: real;

begin
  write('Введите два ненулевых числа: ');
  readln(a, b);
  a := sqr(a); { <-- Вычисляем квадрат числа a }
  b := sqr(b); { <-- Вычисляем квадрат числа b }
  writeln('Результат:');
  writeln('Сумма квадратов: ', a + b);
  writeln('Разность квадратов: ', a - b);
  writeln('Произведение квадратов: ', a * b);
  writeln('Частное квадратов: ', a / b);
  readln
end.

Begin11. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Вводим переменные a и b, находим их модули и выводим результат.

Блок схема. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
var
  a, b: real;

begin
  write('Введите два ненулевых числа: ');
  readln(a, b);
  a := abs(a); { <-- Вычисляем модуль числа a }
  b := abs(b); { <-- Вычисляем модуль числа b }
  writeln('Результат:');
  writeln('Сумма модулей: ', a + b);
  writeln('Разность модулей: ', a - b);
  writeln('Произведение модулей: ', a * b);
  writeln('Частное модулей: ', a / b);
  readln
end.



Яндекс.Метрика