Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Программы » помогите плиз. задачи паскаль
помогите плиз. задачи паскаль
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:50   |  Репутация: [ + 0 ]
Цитата Kseniya ()
5. Дано трехзначное число. Кратна ли сумма его цифр семи?

Код на PascalABC

begin
var z:=ReadInteger('Ведите трехзначное число');
var n3 := z mod 10;
z := z div 10;
var n2 := z mod 10;
var n1 := z div 10;
var sm :=  n1 + n2 + n3;
if (sm mod 7 = 0) then
Println('Сумма цифр =', sm, ', кратна семи ')
else Println('Сумма цифр =', sm, ', не кратна семи ');
end.


GeRa
2 | Автор: rageo | 2021-03-13, 09:39 | Изменено: rageo - Сб, 2021-03-13, 13:54   |  Репутация: [ + 42 ]
Цитата Kseniya ()
8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.

Код на PascalABC
begin
  var (x,y,z) := ReadInteger3('Введите три натуральных числа');
  var j:=0;
  if x<50 then j+=1;
  if y<50 then j+=1;
  if z<50 then j+=1;
  Println (j,'из них меньше 50')
end.


GeRa
3 | Автор: rageo | 2021-03-13, 12:32   |  Репутация: [ + 42 ]
Цитата Kseniya ()
10. Даны два вещественных числа. Уменьшить второе число в пять раз, если оно больше первого по абсолютной величине

Код на PascalABC
begin
  var (x,y) := ReadReal2('Введите два вещественных числа');
  if Abs(y) > Abs(x)  then y:=y/5;
  Println ('ответ',y)
end.


GeRa
4 | Автор: rageo | 2021-03-13, 12:38   |  Репутация: [ + 42 ]


GeRa
4 | Автор: rageo | 2021-03-13, 12:38   |  Репутация: [ + 42 ]
Цитата Kseniya ()
13. Составить программу, которая по введѐному названию страны Европы будет выводить на экран название столицы (например, вводим Греция - получаем "Столица Греции Афины");

Код на PascalABC
begin
  var страна := ReadString('Введите страну');
  case страна of
    'Греция': Println('Столица Греции Афины.');
    'Германия': Println('Столица Германии Берлин.');
  end;
end.


GeRa
5 | Автор: rageo | 2021-03-13, 12:47   |  Репутация: [ + 42 ]
Цитата Kseniya ()
17. Заданы два числа. c) Является ли только одно из этих чисел большим 10?

Код на PascalABC
begin
  var (b,c) := ReadReal2('Введите два числа');
  if (b > 10.0) and (c > 10.0)  then 
  Println ('Два числа больше 10')
  else
   Println ('Одно или оба числа меньше 10') 
end.


GeRa
6 | Автор: rageo | 2021-03-13, 12:55   |  Репутация: [ + 42 ]
Цитата Kseniya ()
21. Дано двузначное число. Является ли сумма его цифр двузначным числом кратным трѐм.

//Код на PascalABC

begin
var z:=ReadInteger('Ведите двухзначное число');
var n2 := z mod 10; 
var n1 := z div 10; 
var sm :=  n1 + n2;
if sm >= 10 then Println('Сумма цифр =',sm, 'двузначное число')
else Println('Сумма цифр =',sm, 'однозначное число');
if (sm mod 3 = 0) then
Println('Сумма цифр кратна трем ')
else Println('Сумма цифр не кратна трем ');
end.


GeRa
7 | Автор: rageo | 2021-03-13, 13:59   |  Репутация: [ + 42 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Программы » помогите плиз. задачи паскаль
  • Страница 1 из 1
  • 1
Поиск: