Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите плиз. задачи паскаль
5. Дано трехзначное число. Кратна ли сумма его цифр семи? 
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50. 
10. Даны два вещественных числа. Уменьшить второе число в пять раз, если оно больше первого  
по абсолютной величине 
13. Составить программу, которая по введѐному названию страны Европы будет выводить на  
экран название столицы (например, вводим Греция - получаем "Столица Греции Афины"); 
17. Заданы два числа.  
c) Является ли только одно из этих чисел большим 10? 
21. Дано двузначное число. Является ли сумма его цифр двузначным числом кратным трѐм. 
22. Проверить, является ли число трехзначным, у которого цифры образуют геометрическую  
прогрессию (например: 139, 842). 
28. Даны действительные положительные числа x, y, z.  
b) Если треугольник существует, то ответить – является ли он остроугольным 
30 Дано натуральное число n (n <= 9999). 
c) Верно ли, что все четыре цифры числа различны?
1 | Автор: Kseniya | 2014-03-01, 08:54   |  Репутация: [ + 0 ]
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.   

var 
x,y,z,amount:integer; 
begin 
amount:=0; 
read(x,y,z);
if (x < 50) then amount:=amount+1; 
if (y < 50) then amount:=amount+1; 
if (z < 50) then amount:=amount+1; 
writeln(amount); 
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2014-03-04, 10:59   |  Репутация: [ + 211 ]
17. Заданы два числа.   
c) Является ли только одно из этих чисел большим 10?  

var
a,b:integer;
begin
read(a,b);
if ((a > 10) AND (b <=10)) OR ((a <= 10) AND (b > 10)) then writeln('yes') else writeln('no');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2014-03-04, 11:01   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2014-03-04, 11:01   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: