Задать вопрос
ИнформатикаИнформатика
5 мая, 00:02

ввести число ... если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x>8 then y:=x/4 else y:=x*5

+1
Ответы (1)
  1. 5 мая, 01:10
    0
    program zz1;

    var x, y:real; / / задаем переменные не целого типа

    begin

    write (' введите заданное число x '); / / вводим с клавиатуры число

    read (x);

    if x > 8 / / проверяем, если введенное число больше восьми, то

    then y:=x / 4 / / высчитываем у, разделив исходное число на четыре

    else y:=x * 5; / / иначе, высчитываем у, умножив исходное число на пять

    write (' Полученный ответ = ', y:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «ввести число ... если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x>8 then y:=x/4 else y:=x*5 ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X); 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Какое значение получит переменная z после исполнения следующего фрагмента программы? z : = 5; x : = 1; if z > 0 then z : = 2 * z else x : = 10; if x = 0 then z : = - 2 else z : = 9; if (sqrt (z) = 3) and (x > 1) then z : = z - 8 else z : = 3 * x;
Ответы (1)
При x=2 If x>0 then y:=3*x else if x
Ответы (1)
Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.
Ответы (1)
Нужен ответ
6.6.6.6.6.6=100 и нужно написать знаки +,-*или: И поставить скобки где надо
Нет ответа
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
Решите уравнение (x^2-5x+7) ^2 - (x-2) (x-3) = 1
Нет ответа
Главная » Информатика » ввести число ... если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x>8 then y:=x/4 else y:=x*5
Регистрация Забыл пароль