Если шаг не задан явно, значит он равен 1.
var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('Процент дохода равен 14.2% в год')
else
WriteLn ('Процент дохода в год не определен');
end;
// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.
// PascalABC.NET
var
y,x,n:real;
begin
write('Введите n: ');
readln(n);
while (x <= n) do begin
writeln('Y = ', sin(x)*cos(x));
x:=x+0.1;
end;
end.
Проверка:
Введите n: 1
Y = 0
Y = 0.0993346653975306
Y = 0.194709171154325
Y = 0.282321236697518
Y = 0.358678045449761
Y = 0.420735492403948
Y = 0.466019542983613
Y = 0.49272486499423
Y = 0.499786801520753
Y = 0.486923815439098
Y = 0.454648713412841
Будем искать сначала двузначные числа, удовлетворяющие условию задачи.
Обозначим через x и y искомые цифры числа. Очевидно, что x и y должны быть значениями из интервала [1..3].
Тогда xy(5) = yx(4) ⇒ 5*x+y = 4*y+x ⇒ 4*x = 3*y
Очевидно, что x и y должны быть значениями целыми положительными из интервала [1..3] и, следовательно, двузначных чисел, удовлетворяющих условию задачи, не существует.
Рассмотрим трехзначные числа, обозначив старшую цифру через a:
axy(5) = ayx(4) ⇒ 5*5*a+5*x+y = 4*4*a+4*y+x ⇒ 9*a+4*x = 3*y
Пусть a=1, тогда:
9+4*x = 3*y
Так как ни x, ни y не являются старшой цифрой, то оба значения могут быть из интервала [0..3].
При x=0 получим подходящее нам значение y=3.
Итак, 103(5) = 5*5+3 = 28(10); 130(4) = 4*4+3*4 = 28(10)
Рассмотрев аналогичным образом x=1;2;3, а также a=2 и a=3, увидим, что других чисел, удовлетворяющих условию, нет.
Ответ: 28