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

Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. ниже представлен вид экрана во время работы программы: вводите последовательно числа. для завершения ввода введите ноль. 1 число: 33 2 число: 45 3 число: -10 4 число: 0 максимальное число: 45

👇
Ответ:
Novaya22
Novaya22
01.02.2020
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('');
Writeln('Максимальное число: ', max);
Writeln();
end.
4,8(24 оценок)
Ответ:
theonestop1234
theonestop1234
01.02.2020
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  текЧисло, макс, сч: ЦЕЛ;

УКАЗ
  сч := 1;
  Вывод.Цепь("Вводите последовательно числа.^");
  Вывод.Цепь("Для завершения ввода введите ноль.^");
  Вывод.Цепь("");
  ПОВТОРЯТЬ
    Вывод.ЧЦел("^%d число: ", сч, 0, 0, 0);
    текЧисло := Приём.Число();
    ЕСЛИ текЧисло > макс ТО макс := текЧисло КОН;
    УВЕЛИЧИТЬ(сч)
  ДО текЧисло = 0;
  Вывод.Цепь("^");
  Вывод.ЧЦел("^Максимальное число: %d", макс, 0, 0, 0)

КОН Задание.
4,7(16 оценок)
Открыть все ответы
Ответ:
melchenko11
melchenko11
01.02.2020
Var
  x,y:real;
begin
  Write('Введите координаты x и y точки: '); Readln(x,y);
  Write('Точка с указанными координатами ');
  if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
    Write('не ');
  Writeln('принадлежит заштрихованной области.')
end.

Примеры выполнения программы:
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.

Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.

Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.
4,4(36 оценок)
Ответ:
На каком языке програмирования?
на Java
public class MyClass {
public static void main(String[] args) throws Exception{
BufferedReader reader = new BufferedReader(new InputStreamReader(System.in)));
System.out.println("введите координаты");
System.out.println("x:");
Integer x = Integer.valueOf(reader.println());
System.out.println("y:");
Integer y = Integer.valueOf(reader.println());
Заштрихованая область как определяется?
пусть она уже задана и имеет вид прямоугольника.
int lefiXofSpace = 5;
int rightXofSpace = 10;
int upYof Space = 7;
int downYof Space = 5;
if((x >= leftXofSpace && x <= rightXofSpace) && (y >= downYofSpace && y <= upYofSpace)) {
System.out.printl("Точка попала в заштрихованую область");
} else {
System.out.printl("Точка не попала в заштрихованую область");
}
}
}
4,7(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ