Задать вопрос
26 августа, 04:48

Даны 2 действительных числа. Возвести в квадрат те из них, значение которых неотрицательны. Числа вводятся пользователям с клавиатуры. Результат работы программы вводится на экран

+4
Ответы (1)
  1. 26 августа, 07:55
    0
    Var

    a, d, f, g: integer;

    begin

    readln (a, d) ;

    if a>0 then begin f:=sqr (a) ; writeln (f) ; end;

    if d>0 then begin g:=sqr (d) ; writeln (g) ; end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Даны 2 действительных числа. Возвести в квадрат те из них, значение которых неотрицательны. Числа вводятся пользователям с клавиатуры. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы