М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zipla
zipla
02.05.2022 11:15 •  Информатика

Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. pascal

👇
Ответ:
brainsofi1
brainsofi1
02.05.2022
Var
a,b,c,max,min:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<a) and (c<b) then min:=c;
Writeln('Максимальное значение - ', max, 'Минимальное - ', min);
end.
4,7(14 оценок)
Ответ:
SANMAN26
SANMAN26
02.05.2022
PascalABC.Net

program MyProg;

var
  max_a, max1, min_a, min1, a, b, c: longint;

begin
  writeln('Введите три числа');
  readln(a, b, c);
  min1 := min(a, b);
  min_a := min(min1, c);
  max1 := max(a, b);
  max_a := max(max1, c);
  writeln('Максимальное число ', max_a);
  writeln('Минимальное число ', min_a);
end.
4,4(47 оценок)
Открыть все ответы
Ответ:
МашаКан
МашаКан
02.05.2022

Разработчиком языка Паскаль является:

а) Блез Паскаль

б) Никлаус Вирт

в) Норберт Винер

г) Эдсгер В. Дейкстра

Правильный ответ: б) Никлаус Вирт

Что из нижеперечисленного не входит в алфавит языка Паскаль?

а) латинские строчные и прописные буквы

б) служебные слова

в) русские строчные и прописные буквы

г) знак подчёркивания

Правильный ответ: в) русские строчные и прописные буквы

Какая последовательность символов не может служить именем в языке Паскаль?

а) _mas

б) maS1

в) d2

г) 2d

Правильный ответ: г) 2d

Вещественные числа имеют тип данных:

а) real

б) integer

в) boolean

г) string

Правильный ответ: в) boolean

В программе на языке Паскаль обязательно должен быть:

а) заголовок программы

б) блок описания используемых данных

в) программный блок

г) оператор присваивания

Правильный ответ: в) программный блок

Какого раздела не существует в программе, написанной на языке Паскаль?

а) заголовка

б) примечаний

в) описаний

г) операторов

Правильный ответ: б) примечаний

Языковые конструкции, с которых в программах записываются действия, выполняемые в процессе решения задачи, называются:

а) операндами

б) операторами

в) выражениями

г) данными

Правильный ответ: б) операторами

Разделителями между операторами служит:

а) точка

б) точка с запятой

в) пробел

г) запятая

Правильный ответ: б) точка с запятой

Описать переменную — это значит указать её:

а) имя и значение

б) имя и тип

в) тип и значение

г) имя, тип и значение

Правильный ответ: б) имя и тип

В данном фрагменте программы:

program error;

begin

SuMmA:=25–14;

end.

ошибкой является:

а) некорректное имя программы

б) не определённое имя переменной

в) некорректное имя переменной

г) запись арифметического выражения

Правильный ответ: б) не определённое имя переменной

Какая клавиша нажимается после набора последнего данного в операторе read?

а) Enter

б) точка с запятой

в) пробел

г) Ctrl

Правильный ответ: а) Enter

При присваивании изменяется:

а) имя переменной

б) тип переменной

в) значение переменной

г) значение константы

Правильный ответ: в) значение переменной

Для вывода результатов в Паскале используется оператор

а) begin

б) readln

в) write

г) print

Правильный ответ: в) write

Для вычисления квадратного корня из х используется функция:

а) abs (х)

б) sqr (х)

в) sqrt (х)

г) int (х)

Правильный ответ: в) sqrt (х)

Для генерации случайного целого числа из интервала [10, 20) необходимо использовать выражение:

а) random*20

б) random(20)

в) random(10)+10

г) random(10)*2

Правильный ответ: в) random(10)+10

В каком из условных операторов допущена ошибка?

а) if b=0 then writeln (‘Деление невозможно.’);

б) if a<b then min:=a; else min:=b;

в) if a>b then max:=a else max:=b;

r) if (a>b) and (b>0) then c:=a+b;

Правильный ответ: б) if a<b then min:=a; else min:=b;

В условном операторе и после then, и после else нельзя использовать:

а) оператор вывода

б) составной оператор

в) несколько операторов

г) условный оператор

Правильный ответ: в) несколько операторов

Определите значение переменной с после выполнения следующего фрагмента программы:

а:=100;

b:=30;

а:=а–b*3;

if a>b then c:=a–b else c:=b–a;

а) 20

б) 70

в) -20

г) 180

Правильный ответ: а) 20

Условный оператор

if a mod 2=0 then write (‘Да’) else write (‘Нет’)

позволяет определить, является ли число а:

а) целым

б) двузначным

в) чётным

г Правильный ответ: в) чётным

Какого оператора цикла не существует в языке Паскаль?

а) for

б) while

в) repeat…until

г) loop

Правильный ответ: г) loop

Цикл в фрагменте программы

р: =2;

repeat

р:=р*0.1

until р<0.1;

будет исполнен:

а) 0 раз

б) 1 раз

в) 2 раза

г) бесконечное число раз

Правильный ответ: в) 2 раза

Цикл в фрагменте программы

а:=1;

b:=1;

while а+b<8 do

begin

а:=а+1;

b:=b+2

end;

выполнится:

а) 0 раз

б) 2 раза

в) 3 раза

г) бесконечное число раз

Правильный ответ: б) 2 раза

Определите значения переменных s и i после выполнения фрагмента программы:

s:=0;

i:=5;

while i>0 do begin

s:=s+i;

i:=i-l;

end;

а) s = 0, i = –1

б) s = 5, i = 0

в) s = 15, i = 5

г) s = 15, i = 0

Правильный ответ: г) s = 15, i = 0

Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5:

а) р:=0; i :=1; while i<=5 do i:=i+1; p:=p*i;

б) p: =1; i:=1; while i<6 do i:=i+1; p:=p*i;

в) р:=1; i:=1; while i<6 do begin p:=p*i; i:=i+1  end;

г) р: =1; i:=1; while i>5 do begin p:=p*i; i:=i+1  end;

Правильный ответ: в) р:=1; i:=1; while i<6 do begin p:=p*i; i:=i+1  end;

В данном фрагменте программы

s:=0 ;

for i:=1 to 10 do

s:=s+2*i;

вычисляется:

а) сумма целых чисел от 1 до 10

б) сумма чётных чисел от 1 до 10

в) удвоенная сумма целых чисел от 1 до 10

г) сумма первых десяти натуральных чётных чисел

Объяснение:

4,7(98 оценок)
Ответ:
Ульяна1561
Ульяна1561
02.05.2022
Var - список переменных
переменные а,с присваивают тип integer, т.е. целые числа; b присваивает тип string, т.е строковый тип
begin - начало программы
readln - оператор ввода, окончание ln осуществляет переход на новую строку
str(a,b) - т.е. преобразовать данные числа в строку
переменная b так же присваивает тип строковый
Val(b,a,c) где: b- строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0
writeln(а) - оператор вывода, окончание ln осуществляет переход на новую строку
end. - конец программы
4,8(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ