tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1)определить, является
1)определить, является ли заданное целое число а двузначным числом. 2)найти значение выражения a3+b3\bc. 3)определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам на паскале
прииииииип
3 16.09.2019 17:20
2
Ответы
yvtcrvt
07.10.2020 20:13
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Введите число->');
Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.
Пример:
Введите число-> 42
Число 42 двухзначное.
2)
begin
var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.
Пример:
Введите a, b, c -> 1 2 3
a*3+b*3/bc= 1.5
ПОКАЗАТЬ ОТВЕТЫ
nastia2931
07.10.2020 20:13
//Листинг программы и скриншот ее работы в приложениях
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Angelina12323
05.04.2021 13:53
PYTHON. Ввод и вывод данных должно осуществляться с файлов. Файл для ввода - input5.txt, файл для вывода - output5.txt. Дана строка. Измените регистр символов в этой строке так,...
DetkaGeimer
05.04.2021 13:53
Решить на языке Python! Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из элементов массивов...
влад2314
05.04.2021 13:54
Нет перегруженной подпрограммы с таким количеством параметров Power где ошибки? var s, p, x: real; l, m, n: integer; begin for l := m to n do begin p:=p*x/l; s:=s+p end; write( x...
mumusinka
05.04.2021 13:54
Основні властивості алгоритму...
Диа200426
18.01.2021 16:46
Мәліметтер қоры мен жұмыс жасағанда сұраныстардың колданылуы мен каншалыкты манызды...
pragravra
18.01.2021 16:47
Решите задачу по информатике ...
Milka0102200676
18.01.2021 16:47
Запишіть команду присвоювання,яка: а)збільшить значення змінної на 12 б)зменшить значення змінної на 2 в)помножить значення змінної на 4 г)змінить значення змінної x на значення...
Kannb
02.05.2020 14:55
В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму элементов массива и разделить каждый элемент массива на полученное значение результат получить в диапазоне ячеек...
Vasyok228
24.06.2019 17:10
Какими отношениями связаны объекты клавиатура и компьютер , компьютер и монитор , память компьютера и пзу ?...
olgagolos
24.06.2019 17:10
Паскаль даны четыре целых числа. найти сумму четных и нечетных чисел....
Популярные вопросы
Представь смешанное число 3 целых шесть двенадцатый в виде не правильной дроби...
2
Какие клетки соединительной ткани вырабатывают коллаген и эластин, которым кожа...
3
Короткий рассказ о религии древнего египта...
2
Вася едет 57км.ч а ваня 73км.ч на сколько км ваня проедет больше вани за 4ч? 6ч?...
3
С7 класс вставте слова в предложения happens harder magic it to the best of us....
3
Напишите, , заметка в газету на тему: легко ли иметь свой голос?...
3
Взаимосвязи между людьми в процессе совместной деятельности и общения...
2
Сочинение на тему один день у египтянина...
2
Подскажите что такое термическое разложение...
3
Как прочитать по : my name s anton and i m 9. i m in year 3 at school.i like art...
2
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Введите число->');
Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.
Пример:
Введите число-> 42
Число 42 двухзначное.
2)
begin
var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.
Пример:
Введите a, b, c -> 1 2 3
a*3+b*3/bc= 1.5