Задать вопрос!

Задать вопрос!

Все категории

Виталий Дзю

1 год назад

14

Задание в Паскаль ABC. Найти из трех введенных с клавиатуры чисел наибольшее. Переменные:

a; b; c; max (наибольшее). Брать любые числа.

Информатика

1 ответ:

Людмила Оненко [6]1 год назад

0 0

If (a>b) and (a>c) then..
ну и выводишь переменную на экран.

Читайте также

3ий класс. Информатика. Вопрос: Зачем люди представляют информацию?

Тат Яна

Так как информация это сведения об окружающем нас мире, значит люди передают информацию чтобы больше узнать.

0 0

4 года назад

Прочитать ещё 2 ответа

Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно. Входные данные: ввести два

rem-rebel [178]

Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>

0 0

4 года назад

Запишите команды для выполнения следующих действий с БД «Домашняя библиотека»; а) сортировки в порядке возрастания годов издания

Kristina282018 [7]

1. select * from Название_таблицы order by Поле_с_датой
2. select * from <span>Название_таблицы where Имя_автора <> 'Беляев А.Р.' order by автор, год
3. delete from </span><span>Название_таблицы where номер_полки=5 and год<'01-01-1990'</span>

0 0

4 года назад

3. . Перевести на язык алгебры логики следующие высказывания: а) Необходимое и достаточное условие для жизни растений состоит в

BananaZz [14]

А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка

</span>

0 0

4 года назад

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

kakash666

Program n_5;

var
a, b: integer;

begin
writeln('Введите 2 целых числа ');
readln(a);
read(b);
if a > b then
write(b, ' < ', a);
if a < b then
write(a, ' < ', b);
if a = b then
write(a, ' = ', b);
end.

0 0

3 года назад