сервис вопросов и ответовСоставить программу,выводящую на экран слово "Ясно" , если видимое значение давления больше 760 мм.р.ст. и слово "Пасмурно" ,если давление меньше 760
5-9 класс|
|
мм.р.ст. (модель барометра)
Ivan1995rogovoy
05 февр. 2014 г., 19:46:24 (10 лет назад)
Nenas
05 февр. 2014 г., 22:02:31 (10 лет назад)
var P:integer;
begin
writeln ('Введите значение давления');
readln (P);
if (P>760) then writeln ('Ясно')
else
writeln ('Пасмурно');
end.
Lesysavchuk
05 февр. 2014 г., 22:44:53 (10 лет назад)
Способ 1: Пользователь сам задает значение
program sp1;
var i:integer;
begin
readln(i);
if i>760 then writeln('ЯСНО') else writeln('Пасмурно');
end.
Способ номер 2: программа сама придумывает давление.
program sp2;
var i:integer;
begin
randomize;
while (i<700) do
i:=Random(800);
Writeln('Программа придумала давление',i);
if i>760 then writeln('ЯСНО') else writeln('Пасмурно');
end.
Ответить
Другие вопросы из категории
составьте программу,которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с
нечётными значениями
Сообщение, записанное буквами из 16- символьного алфавита, содержит 60 символов.Какой объем информации оно несёт?
СРОЧНО!!!! ДАМ + 20БАЛЛОВ!!!!
В кодировке КОИ-8 каждый символ кодируется 8 битами. Оприделите информационыый объём следующего предложения в данной кодировке.
И уносят меня в звенящую снежную даль
Ответ:1)256 бит 2)608 бит 3)304 бит 4)76 байт
Менеджеру по продажам приказали разбить все отремонтированные машины на 2 группы. Но, к сожалению, не сказали какие из машин были отремонтированы
и сколько в какой группе должно быть машин. Всего на площадке 5 машин. Сколько возможных разбиений существует? Учтите, что группа может не содержать машин вообще. Кроме того, все машины отличаются друг от друга, а группы неотличимы.
Читайте также
Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости от того какой треугольник можно построить с такими длина сторон:
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
дано натуральное число N, Написать ему выводящую на экран последовательность натуральность натуральных чисел от 1 до N, задание 2 дано натуральное число
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Задание 4.Составте программу ,выводящую на экран числа от 1 до 10 , по одному числу в строке.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
Паскаль абс 2 задачи 1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
Вы находитесь на странице вопроса "Составить программу,выводящую на экран слово "Ясно" , если видимое значение давления больше 760 мм.р.ст. и слово "Пасмурно" ,если давление меньше 760", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.