Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
PRPPAPIG2004
31.05.2020 11:11 •
Математика
Данны три числа a,b,c. составить алгоритм вычисления произведения квадратов этих чисел.
Показать ответ
Ответ:
676751
07.09.2020 21:23
Задача 1
Алгоритм выглядит таким образом:
ввести x, y;
если x>y то
s:=(x*y)*2;
иначе
s:=(x+y)/2;
вывод s
конец. (блок-схема прилагается в скриншоте 1)
На паскале выглядит примерно так:
var
x, y, s:real;
begin
readln(x,y);
if x>y then
s:=(x*y)*2;
else
s:=(x+y)/2;
writeln(s:2:2);
end.
ответ на 2 задачу
Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)
ответ на 3 задачу
Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".
На паскале выглядит примерно так:
var
a, b, c:integer; {если число вещественное}
begin
readln(a, b, c);
if (a<b<c) then
writeln("Верно");
else
writeln("Неверно");
end.
ответ на 4 задачу
На паскале:
var
a, b, c, max:integer;
begin
max:=0;
readln(a,b,c);
if max<a then
max:=a;
if max<b then
max:=b;
if max<c then
max:=c;
writeln(max);
end.
ответ на 5 вопрос
На паскале:
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<0) then
a:=a*a;
writeln(a);
if (b<0) then
b:=b*b;
writeln(b);
if (c<0) then
c:=c*c;
writeln(c);
end.
Удачи!
0,0
(0 оценок)
Популярные вопросы: Математика
natalyasergeev1
06.06.2023 07:51
Поставь знаки действий так, чтобы получились верные равенства: 1) 3 3 3 = 99 (33х3 не подходит) 2) 3 3 3 3 = 97 (33х3-3 не подходит)...
NaightMar
06.06.2023 07:51
Умножить столбиком. 2325*6= 235*20= 235*26= 308*7= 308*3= 308*37=...
робот60
06.06.2023 07:51
Рассказ о том как я и мои близкие будут поддерживать российских спортсменов на олимпийских играх в сочи2014...
миша741
14.06.2022 05:54
Сколько будет: 1 м2 50 дм2 = ? дм2 1 м2 50 см2 = ? см2...
olegzabl
14.06.2022 05:54
Нужно решить разным угол м треугольника mnk в 3 раза меньше угла n и в четыре раза меьше угла к. найдите все углы треугольника....
Dashacolod
28.02.2021 13:20
халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява халява, только...
Mockingbird666
10.02.2023 08:29
Сім гномів зібрали разом 28 грибів.причому всі вони зібрали різну кількістьгрибів і у жодного не було порожнього кошика.скільки грибів зібрав кожний гном?...
artur19912000
10.02.2023 08:29
За весь ноябрь 2009 года в санкт-петербурге солнце светило всего 13 часов. сколько часов в течение этого месяца в городе не было солнца?...
228dflbr
10.02.2023 08:29
Умегамозга нашли страшную болезнь. доктор выписал ему всего 4 таблетки двух видов (по две каждого вида), совершенно не отличимых друг от друга, и , что, если выпить более...
dilnoza55
10.02.2023 08:29
В8 ч 20 мин утра из москвы в ленинград вышла легковая машина, а в 9 ч 30 мин из г. калинина так же в ленинград вышел автобус со скоростью, меньшей скорости легковой машины...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Алгоритм выглядит таким образом:
ввести x, y;
если x>y то
s:=(x*y)*2;
иначе
s:=(x+y)/2;
вывод s
конец. (блок-схема прилагается в скриншоте 1)
На паскале выглядит примерно так:
var
x, y, s:real;
begin
readln(x,y);
if x>y then
s:=(x*y)*2;
else
s:=(x+y)/2;
writeln(s:2:2);
end.
ответ на 2 задачу
Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)
ответ на 3 задачу
Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".
На паскале выглядит примерно так:
var
a, b, c:integer; {если число вещественное}
begin
readln(a, b, c);
if (a<b<c) then
writeln("Верно");
else
writeln("Неверно");
end.
ответ на 4 задачу
На паскале:
var
a, b, c, max:integer;
begin
max:=0;
readln(a,b,c);
if max<a then
max:=a;
if max<b then
max:=b;
if max<c then
max:=c;
writeln(max);
end.
ответ на 5 вопрос
На паскале:
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<0) then
a:=a*a;
writeln(a);
if (b<0) then
b:=b*b;
writeln(b);
if (c<0) then
c:=c*c;
writeln(c);
end.
Удачи!