1. Информатика
  2. Дано положительное число a.найдите

Дано положительное число a.найдите среди чисел 1,1+1/2,1+1/,большее a.. написать программу в паскаль

arhivnaykr arhivnaykr    2   18.05.2019 10:10    1

Ответы
Солі Солі  11.06.2020 16:26

var

  A, S:real;

  i:integer;

begin

  write('A = '); readln(A);

  if A < 1 then

  begin

    writeln('1 > ', A);

    exit;

  end;

  if A < 1.5 then

    writeln('1.5 > ', A)

  else

    writeln('Таких чисел нет');

  readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dhwaaо dhwaaо  23.01.2021 17:55
Дано целое трехзначное число x. Найти число, полученное при прочтении этого числа справа налево. Полученный перевёртыш возвести в квадрат и вывести результат на экран....
IndiAkent IndiAkent  23.01.2021 17:46
Турист 40 хв піднімався на гору і 30 хв спускався з гори. Складіть математичну модель і проєкт для визначення пройденого шляху. Збережіть складений про-ект у вашій папці...
ира12345612 ира12345612  11.05.2020 11:41
Сколько раз будет выполнено повторение определённых действий в программе Dcratch?...
artempirogov20p08sav artempirogov20p08sav  11.05.2020 11:42
5. Объясните понятие «Авторское право»....
YanaKotsyuk YanaKotsyuk  11.05.2020 11:42
Заполните ячейки трассировочной таблицы, используя данные проектаДана скорость автомобиля V, и время которое автомобиль пробыл в пути T. Определите растояние S. Формула...
PASHA993r PASHA993r  11.05.2020 11:42
Гиперссылка-это задание 2 типы гиперссылок а) внутритабличные, межстраничные, внутрисистемные б) внутристраничные, внутрисестемные,межсистемные,в) межтабличные,внутрестраничные,...
прояна прояна  31.05.2023 08:31
Можете вот это сделать писать только в if else...
nataone7 nataone7  31.05.2023 08:32
С++ Шаблони функцій. Завдання 1 Написати шаблони функцій для роботи з одновимірним масивом: a. введення елементів масиву, b. виводу елементів масиву на екран, c. пошуку...
ZORaSsa ZORaSsa  31.05.2023 08:33
Именованный набор однотипных данных, хранящихся на компьютерном носителе называется А:алгоритмом Б:программой В:каталогом Г:файлом...
mrartemartem1 mrartemartem1  31.05.2023 08:38
Всё в цикле фор 1. Вывести числа в определенном диапазоне. • Создать цикл в диапазоне от 1 до 100; • Вывести каждое число в диапазоне при оператора print. 2. Вывести числа...

Популярные вопросы