Составить программу в которой к переменным a,b присвоены любые отрицательные числа зате считаем модули и возводим в квадрат в pascal abc
5-9 класс
|
Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite a i b');
Readln(a,b);
a:=abs(a);
b:=abs(b);
a:=a*a;
b:=b*b;
Writeln(a,' ',b);
readln
end.
Другие вопросы из категории
По этому надо стоставить 2 програмы и записать их в тетрадь помогите пожалуйста
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.