1)Определить, является ли заданное целое число а двузначным числом.
2)Найти значение выражения a3+b3\bc.
3)Определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам
на Паскале
2)Найти значение выражения a3+b3\bc.
3)Определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам
на Паскале
More Questions From This User See All
Answers & Comments
//Версия 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