Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then x1:=i;
end;
Writeln('¹=',x1);
readln;
end.
Если номер последовательность выводить нужно каждый раз когда встречается то число тогда так
Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then Writeln('¹=',i);
end;
readln;
end.
1)вывод Загадайте натуральное четное число
2) вывод Прибавьте к нему 4
3)вывод Уменьшите на 6
4) вывод Поделите на 2
5)вывод Что у Вас получилось?
6)ввод rezult
7)chislo:= rezult*2+6-4
8)вывод chislo
код на Си
#include<stdio.h>
#include<conio.h>
#include<math.h>
int main()
{
int result;
puts("Загадайте натуральное четное число \n");
puts("Прибавьте к нему 4 \n");
puts("Уменьшите на 6 \n");
puts("Поделите на 2 \n");
puts("Что у Вас получилось? \n");
scanf("%i", &result);
printf("Вы загадали число %i", result*2+6-4);
getch();
}