Pascal abc
5-9 класс
|
Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
program abc;
var i:integer;
begin
read(i);
if i<0 then
i:=sqr(i);
write(i);
end.
program kv;
var a,x:integer;
begin
a:=0;
read(x);
if x<a then write(sqr(x)) else write('введено не отрицательное') ;
end.
Другие вопросы из категории
Комплекс взаимосвязанных программ для обеспечения пользователю и программам удобного способа обращения называют : а) драйвером б) утилитой в) оболочка г) интерфейсом 3. Максимальное количество разрядов двоичного кода, которые могут передаваться и обрабатываться процессором одновременно, называют : а) адресным пространством б) разрядностью процессора в) ёмкостью ОЗУ г) регистрами
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Вот проверьте здесь гдето ошибка
program abc;
var a,b,c:integer;
begin;
write ('Длина равна=')
read(a);
write ('Ширина равна=')
read(b);
c:=a*b
write ('Площадь='c');
readln;
end.
Мне показало что в строке
сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.