Дано три натуральных числа x,y,z. Вычислить количество чисел меньших 50

@heyHOLLA · Регистрация: 28.10.2013

Студворк — интернет-сервис помощи студентам

Дано три натуральных числа x,y,z. Вычислить количество чисел меньших 50.

Pascal
1
2
3
4
5
6
7
8
9
var x,y,k,z: real;
 begin
  write('Введите три числа x и y, z: ');
  readln(x, y, z);
  if x<50 then k:=k+1;
  if y<50 then k:=k+1;
  if z<50 then k:=k+1;
  write('количество чисел меньших 50=',k);
  end.

что здесь не правильно???какого оператора не хватает????

@ildwine · 03.03.2014, 18:08

heyHOLLA, всё верно.

Добавлено через 9 минут

Pascal
1
2
3
4
5
6
7
8
9
10
var x,y,k,z: real;
 begin
  write('Ââåäèòå òðè ÷èñëà x è y, z: ');
  readln(x, y, z);
  k := 0;
  if x<50 then k:=k+1;
  if y<50 then k:=k+1;
  if z<50 then k:=k+1;
  write('êîëè÷åñòâî ÷èñåë ìåíüøèõ 50=',k);
  end.

Добавлено через 1 час 25 минут

Pascal
1
k := 0;

добавил...

@heyHOLLA · 03.03.2014, 18:09 **[ТС]**

спасибо!!!теперь правильно)) а можно,пожалуйста,ещё такую задачу помочь, а то уже совсем не соображаю, даны действительные числаx, y, z, выяснить, существует ли треугольник с длинами x,y,z, если треугольник существует,то ответить - является ли он остроугольным, использовать лишь операторы if, the, else

@Cyborg Drone · 04.03.2014, 03:06

Не по теме:

heyHOLLA, перечитайте правила форума. Один вопрос - одна тема. Надо было обязательно создать новую тему. Ваша вера в то, что, если человек ответил на один вопрос, то и ответит на другой, весьма похвальна. В людей надо верить. Но правильнее было бы в данном случае поступить следующим образом:
1. Создать новую тему;
2. В этой теме обязательно в оффтопе (для этого есть надпись OFF в шапке редактора сообщений) попросить ildwine помочь Вам в решении новой задачи, и указать ссылку на неё, скопировав адрес новой темы из адресной строки Вашего браузера и вставив её в сообщение с помощью пиктограммы "Вставить ссылку" (Ну, земной шарик такой, и на его фоне кусок цепи, который больше похож не на цепь, а на очки какие-то).

Про треугольник само условие выглядит так (вариант):

Pascal
1
2
3
4
5
6
7
if not((x+y>z) or (x+z>y) or (y+z>x))
  then writeln('Треугольник не существует.')
  else begin
    write('Существует ');
    if not((x*x+y*y<z*z) and (x*x+z*z<y*y) and (y*y+z*z<x*x)) then write('не ');
    writeln('остроугольный треугольник.')
  end;

Всё остальное написать, полагаю, Вам труда не составит.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@heyHOLLA 0 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 49
	03.03.2014, 18:09 [ТС]
	спасибо!!!теперь правильно)) а можно,пожалуйста,ещё такую задачу помочь, а то уже совсем не соображаю, даны действительные числаx, y, z, выяснить, существует ли треугольник с длинами x,y,z, если треугольник существует,то ответить - является ли он остроугольным, использовать лишь операторы if, the, else 0