Arath
5 год назад
Пожалуйста посчитайте РЕШИТЬ 5 ЛЮБЫХ ЗАДАЧпаскаль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) Верно ли, что все четыре цифры числа различны?
ОТВЕТЫ
Rajcho
Oct 24, 2020
//5
var
sum, n:integer;
begin
Readln(n);
while (n > 0)do
begin
sum := sum + n mod 10;
n:= n div 10;
end;
if (sum mod 7 = 0) then
writeln('Сумма чисел кратна 7') else
Writeln('Сумма чисел не кратна 7')
end.
//8
var
a, cnt:integer;
begin
Read(a);
if (a < 50)then cnt:= cnt + 1;
Read(a);
if (a < 50)then cnt:= cnt + 1;
Read(a);
if (a < 50)then cnt:= cnt + 1;
Writeln(cnt);
end.
//10
var
a, b:Real;
begin
Readln(a,b);
if (a < abs(b)) then
b:= b / 5;
Writeln(a, ' ', b);
end.
var
sum, n:integer;
begin
Readln(n);
while (n > 0)do
begin
sum := sum + n mod 10;
n:= n div 10;
end;
if (sum mod 7 = 0) then
writeln('Сумма чисел кратна 7') else
Writeln('Сумма чисел не кратна 7')
end.
//8
var
a, cnt:integer;
begin
Read(a);
if (a < 50)then cnt:= cnt + 1;
Read(a);
if (a < 50)then cnt:= cnt + 1;
Read(a);
if (a < 50)then cnt:= cnt + 1;
Writeln(cnt);
end.
//10
var
a, b:Real;
begin
Readln(a,b);
if (a < abs(b)) then
b:= b / 5;
Writeln(a, ' ', b);
end.
857
Смежные вопросы:
