Заданы три числа А, В, С. Если они все положительны, то
Заданы три числа А, В, С. Если они все положительны, то отыскать их корешки; если все
отрицательны, то возвести каждое из их в квадрат, по другому отыскать их сумму.
Записать программу, которая на ввод медли суток выводит подходящее по-
желание добросердечного утра, доброго дня, благого вечера и безмятежной ночи
Вводится последовательность ненулевых чисел, 0 конец последовательности. Отыскать наивеличайшее и меньшее посреди них.
Лена Полхова
А какой ЯП? Pasсal?
Боганикова
Леночка
Алгоритмизация ветвлений.Алгоритмизация задач множественного выбора. Алгоритмизация повторяющейся структуры.Блок-схемы алгоритмов
Галина Поцепня
как тебе сказали сдавать эти задания? в чем вы на инфе пишите? ты мне сбросил только темы
Вячеслав Ольховиков
выше задания
Витек Генцис
вот к каждому заданию,ну блох-схема
Irina Kulbina
схемы? тогда ожидай 5 мин на данный момент нарисую)
1 ответ
Камилла Кузницина
Я только номер 1 сообразил как по схемам сделать, номер 2 подобен 1 только проверка (в ромбах) на числа от 4 до 8, от 9 до 15 от 16 до 20, от 21 до 3. А вот как 3-ий номер делать по схемам я хз, если нужна прога на паскале, то скину
Паскаль
1 номер
program gg1;
var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите числo а');
read(a);
writeln('Введите числo c');
read(c);
writeln('Введите числo b');
read(b);
if (agt;=0) and (bgt;=0) and (cgt;=0) then begin
a1:=sqrt(a)
b1:=sqrt(b)
c1:=sqrt(c)
writeln(a1)
writeln(b1)
writeln(c1)
end;
else
if (alt;0) and (blt;0) and (clt;0) then begin
a1:=a*a
b1:=b*b
c1:=c*c
writeln(a1)
writeln(b1)
writeln(c1)
end;
else begin
s:=a+b+c; writeln(s); end; end.
Паскаль
1 номер
program gg1;
var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите числo а');
read(a);
writeln('Введите числo c');
read(c);
writeln('Введите числo b');
read(b);
if (agt;=0) and (bgt;=0) and (cgt;=0) then begin
a1:=sqrt(a)
b1:=sqrt(b)
c1:=sqrt(c)
writeln(a1)
writeln(b1)
writeln(c1)
end;
else
if (alt;0) and (blt;0) and (clt;0) then begin
a1:=a*a
b1:=b*b
c1:=c*c
writeln(a1)
writeln(b1)
writeln(c1)
end;
else begin
s:=a+b+c; writeln(s); end; end.
Виталя
спасибо огромное
Sagandukova Ekaterina
да не за что =)
Екатерина Вржещ
а на паскале как???сможешь тоже кинуть?
Sergej
на данный момент попробую написать, но я с сотового, так что прокомпилируешь сам и скажешь работает али нет)
Атнагулова
Маша
спасибо,ну я сейчас инфу уточнила,только схема нужна,блин,Жалко ,что 2 не знаешь((
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов