Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aleksminaev
28.05.2022 19:24 •
Математика
Данны три числа a,b,c. составить алгоритм вычисления произведения квадратов этих чисел.
Показать ответ
Ответ:
КаринаХасанова9
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 оценок)
Популярные вопросы: Математика
asyamilos
22.05.2020 17:10
Решите уравнение 2х-1/2+5х/6-1-х/3=3х-2...
sonsan108
22.05.2020 17:10
Найдите неверное равенство. отметь правельный ответ. а)0∙15=15 б)42+0=42 в)0: 12=0 г)25∙0=0 д...
мяеенри
22.05.2020 17:10
На одной полке 63 книги, на второй полке на 40 книг меньше, а на третьей полке книг столько же, сколько на первой и второй вместе. сколько книг на трёх полках?...
Jacob888
22.05.2020 17:10
Проверьте справедливость равенств и укажите делимое, делитель, неполное частное и остаток 1)1123=48×23+19...
PRPPAPIG2004
22.05.2020 17:10
Грузовик ехал 4 часа со скоростью 60км/ч. после этого ему осталось проехать в 4 раза больше, чем он проехал. сколько всего километр должен проехать грузовик?...
vladik28092006
22.05.2020 17:10
Средний возраст бригады 23 года, причём возраст бригадира 37 лет . средний возраст бригады без учёта возраста бригадира 22 года . сколько человек в молодёжной бригаде...
klanana
22.05.2020 17:10
Сумма первых трех членов последовательности ,члены которого возрастают на 8 единиц ,равна 372-м.чему равен второй член этой последовательности....
nik20554888
22.05.2020 17:10
Под кустом орешника лежало 6 орехов.подул ветер,и орехов стало 14.сколько орехов сдул ветер?...
momot06
22.05.2020 17:10
Что означает процветание в единстве по крымоведению...
MariyKot
27.11.2022 14:50
точка А прямого двогранного кута відділена від його граней на на 3 дм і 4 дм. Знайдіть її відстань від ребра двогранного кута...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Удачи!