Question

1)Составить алгоритм нахождения y, если y=4x/x-1 2) Составить алгоритм вывода на экран всех трехзначных чисел, оканчивающих на 4

Answer 1

1)

program pr;
uses crt;
Var y,x:real;

Begin
 Writeln('vvedite x');
 readln(x);
 y:=(4*x)/(x-1);
 Writeln('y=',y:10:3);
  readln;
end.

 

 

2)

program pr;

Var n,i,a:integer;

Begin
Writeln('введите кол-во цыфр');
readln(n);

for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;

end.

 

 

2) использование массива

 

program pr;
uses crt;
Var n,i:integer;
    a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);

Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');


end.

 

Answer 2

1) Алгоритм нахождения значения y для выражения y = (4x)/(x - 1):

1. Ввести значение переменной x.
2. Проверить, что x ≠ 1 (так как знаменатель не может быть равен нулю).
3. Вычислить значение выражения y = (4x)/(x - 1).
4. Вывести значение переменной y.

Обратите внимание, что в шаге 2 проводится проверка, чтобы избежать деления на ноль.

2) Алгоритм вывода на экран всех трехзначных чисел, оканчивающихся на 4:

1. Установить начальное значение переменной i равным 100 (минимальное трехзначное число).
2. Пока i не превышает 999 (максимальное трехзначное число), выполнять следующее:
    a. Проверить, оканчивается ли текущее значение i на 4.
    b. Если условие из пункта а истинно, вывести значение i на экран.
    c. Увеличить значение i на 1.
3. Завершить выполнение алгоритма.

Этот алгоритм перебирает все трехзначные числа от 100 до 999 и выводит на экран те из них, которые оканчиваются на 4.