Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ThePashka
06.01.2021 04:42 •
Информатика
Ввести рост человека. ввести на экран "высокий" ,если его рост превышает 180 см, и "не высокий" в противном случаи.
👇
Увидеть ответ
Ответ:
ukharitonova
06.01.2021
#include <stdio.h>
#include <conio.h>
int main ()
{
int x;
printf ("Rost : ", x);
scanf( " %d" , &x);
if ( x > 180) printf ( " Vysokij ");
else printf( "Ne ochen' vysokij" );
return 0 ;
}
4,4
(92 оценок)
Ответ:
tsisarmaria
06.01.2021
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
4,5
(33 оценок)
Открыть все ответы
Ответ:
лщутлзутсзо
06.01.2021
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
4,5
(9 оценок)
Ответ:
Ivan1955
06.01.2021
Pascal
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
4,5
(89 оценок)
Это интересно:
Ф
Философия-и-религия
03.06.2020
Практики тибетского буддизма: как начать и что ожидать...
С
Стиль-и-уход-за-собой
28.01.2022
Как окрасить волосы в технике Dip-Dye при помощи Kool Aid?...
С
Стиль-и-уход-за-собой
02.12.2022
Как создать свой неповторимый образ в стиле 80х...
К
Компьютеры-и-электроника
11.02.2022
Как установить новые модели машин в GTA 4: подробная инструкция...
Д
Дом-и-сад
29.04.2023
Как правильно покрасить кожаный диван: секреты и советы...
З
Здоровье
16.08.2022
Как найти гипнотерапевта: советы и рекомендации...
Д
Дом-и-сад
28.11.2021
Как сделать небольшую септическую систему...
26.01.2022
Как помочь другу справиться с депрессией...
Х
Хобби-и-рукоделие
26.07.2020
Как выращивать спирулину дома...
П
Питомцы-и-животные
06.06.2020
Как приучить собаку к выгулу: советы от профессионалов...
Новые ответы от MOGZ: Информатика
Malikru74
16.05.2020
Нужно решить составить блок-схему...
вау1905
08.11.2021
Вкажіть можливе значення до величини Boolean Назва True 3.5 56...
ЬПОАСИ
21.05.2020
Нарисовать блок-схему для программы (для программы с операторами if, then, else. Найти значение f, принимающей вещественные значения: f:=2·sin(2*x), если f 0, То, вывести значение...
dima11232
26.01.2021
Используя строку формул, запишите формулу =А3-В2*D4+(C3|D2) информатика...
380969330270
26.10.2020
Книга состоит из 256 страниц на каждой 52 строк по 74 символа. Сколько килобайт(Кбайт) составляет информация в книге...
akbotawka02
27.09.2020
Найди информационный объём в битах растрового изображения размером 56 на 56 пикселя если известно что используется палитра из 65536 цветов...
Madik1111111
13.10.2020
Ниже в табличной форме представлен фрагмент базы данных «крупнейшие озёра мира». название площадь (тыс. км2) мах глубина (м) материк аральское море 66,5 68 евразия 0,5 11 евразия...
donaldavis1337
13.10.2020
Составьте програму, которая запрашивает количество карандашей и их цену, количество тетрадей и их цену, а выводит стоимость всех карандашей, тетрадей и всей покупки в целом....
Vasya1337ez
19.04.2023
7) Что вы подразумеваете под общими файлами, пакетами?...
нануша456
26.12.2022
Факторы влияющие на распределение температур на полуострове индостан...
MOGZ ответил
З якою масою тягар треба підвісити до корокого плеча важеля у точці А, якщо до...
От чего зависит облик природы? * Это обязательный во Крупнейший природный комплекс...
Головна думка твору стара-стара вишня...
1) Turn the given sentences into negative sentences (Преврати заданные предложения...
Вычисли площади фигур а) 3см, 2см, 5см, 4см. Б) 2см, 11см, 7см, 2см...
Путаница музыка СЬАНБАЛМ АФАР АКМИНАИД ЫТНО СТИЛОС...
He ___ not ___ him since June. 1)did/see 2)did/seen 3)have/saw 4) has/seen He...
прочитайте текст и выполните задания B1-B6 (1) Герда приплыла к большому вишнёвому...
Напишіть продовження новели М. Дочинця Автопортрет ( 3-4 речення). Використайте...
Внимательно произведения композитора-импрессиониста Клода Дебюсси.1) Празднества...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
#include <conio.h>
int main ()
{
int x;
printf ("Rost : ", x);
scanf( " %d" , &x);
if ( x > 180) printf ( " Vysokij ");
else printf( "Ne ochen' vysokij" );
return 0 ;
}