Паскаль! 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) верно ли, что все четыре цифры числа различны?

Информатика

Ответить

Ответы

алексеевич810

10.09.2021

8. var x,y,z,k: integer; begin k: =0; read (x,y,z); if (x> =1) and (y> =1) and (z> =1) then begin if (x< 50) then k: =k+1; if (y< 50) then k: =k+1; if (z< 50) then k: =k+1; writeln (k); end else writeln ('вы ввели не натуральные числа'); end.

Dato24043846

10.09.2021

В состав арифметических выражений входят: переменные числового типа, числа , арифметические операции и операции, выраженные в виде функций. в состав логических выражений входят: логические переменные, логические операции; числа, числовые и строковые переменные или выражения, которые сравниваются между собой операциями сравнения (< > = и пр.) в состав строковых выражений входят: переменные строкового типа, строки и строковые функции, операция конкатенации (объединения).

ss2911

10.09.2021

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. для только положительных: //c циклом for var s,i: integer; begin for i: =100 to 999 do if i mod 77 = 0 then s: =s+i; writeln('сумма трехзначных кратных 77: ',s); end. тестовое решение: сумма трехзначных кратных 77: 5929 // с циклом while var s,i: integer; begin i: =100; while i< =999 do begin if i mod 77 = 0 then s: =s+i; i: =i+1; end; writeln('сумма трехзначных кратных 77: ',s); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль! 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) верно ли, что все четыре цифры числа различны?