Предмет: Информатика, автор: Аноним

С клавиатуры вводится 2 числа,требуется найти квадрат наименьшего из них.

Ответы

Автор ответа: alexooooon

var a1,b1,a,b:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if (b1>a1)
then write(a1)
else write(b1)
end.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Другие предметы, автор: Pro100Mal4ik998

Мини сочинение на тему что означает улыбка? (риторика)

1 год назад

Предмет: Окружающий мир, автор: ksyusha221976

подготовить сообщение.проблема мусора и загрязнение планеты 4 класс

1 год назад

Предмет: Русский язык, автор: shalalamammado

омонимы словам среда наряд ключ предлог

1 год назад

Предмет: Английский язык, автор: dramdoram

complete the key phrases with the words,помогите))))

7 лет назад

Предмет: Информатика, автор: vasyusha200483

6. Требуется заполнить массив именно так:
X = [3 4 7 8 11 12]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
X[k] := 3*k - k mod 2
X[k] := 2*k + k mod 2
X[k] := 2*k - k mod 2
X[k] := 2*k + k div 2
X[k] := 2*(k - 1)
7. Требуется заполнить массив именно так:
X = [1 2 4 8 16 32]
Какой оператор надо поместить в тело цикла вместо многоточия?
X[1] := 1;
for k:=2 to 6 do begin
...
end;
X[k] := k
X[k] := 2*k
X[k] := X[k-1] + 1
X[k] := 2*X[k-1]
X[k] := 2*(X[k-1] - 1)
8. Что надо написать вместо многоточия, чтобы вывести элементы массива X[1..N] в обратном порядке? В ответе не используйте пробелы.
for k:=1 to N do
writeln ( ... );
Ответ:
9. Какой оператор надо вставить вместо многоточия, чтобы вывести на экран все элементы массива A[1..N] с четными номерами? В ответе не используйте пробелы.
k := 2;
while k <= N do begin
writeln ( A[k] );
...
end;
Ответ:
10. Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти сумму всех элементов массива в переменной S? Вводите ответ без пробелов.
S := 0;
for k := 1 to N do begin
...
end;
Ответ:
11. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти сумму положительных элементов массива в переменной S? Вводите ответ без пробелов.
S := 0;
for k := 1 to N do begin
if . . . then S := S + X[k];
end;
Ответ:
12. Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти количество четных элементов массива в переменной S?
S := 0;
for j:=1 to N do
if ... then S := S + 1;
S mod 2 = 1
S mod 2 = 0
X[j] mod 2 = 1
X[j] mod 2 = 0
X[j] div 2 = 0

7 лет назад