14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END
# Код на ruby 2.2.3p173
def automate(n)
a = n / 1000
b = n / 100 % 10
c = n / 10 % 10
d = n % 10
t = [a*b, c*d]
return (t.max.to_s + t.min.to_s).to_i
end
def zadanie()
for i in 1000..9999
t = automate(i)
p [t, i] if t == 174
end
end
# Примеры применения
zadanie()
Ответ - нет таких цифр
Аналитическое решение
174 можно разложить на 1 + 74 и 17 + 4
по правилу 2 это только 17 + 4
17 - произведение двух чисел, но 17 простое и произведение только 17 и 1. 17 не может быть одной цифрой
Значит вариант 174 невозможен при таких правилах
Их различия это цвета, форма и размеры
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>
Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.