Как-то так. 20симовоооооооооооооооооооолоооовв.
...гор-бугор. догор нет такого слова
Varp,v,t,x:integer;
begin
write('Введите число ');
readln(x);
p:=x div 100;
v:=(x div 10) mod 10;
t:=(x mod 100) mod 10;
if (p < v) and (p<t) then
writeln('Минимальное цифра = ',p);
if (v < p) and (v<t) then
writeln('Минимальное цифра = ',v);
if (t < p) and (t<v) then
writeln('Минимальное цифра = ',t);
end.
на си(с++)
#include<iostream.h>
void main(){
int a;
int x;
cin>>x;//число на которое должно закончитьс
cin>>a;//число которое вводишь
int b,c,d;
b=a%1000;//остаток от деления на 1000
d=b%100;//остаток от остатка деления на 100
c=d%10;//само число
if (c==x) cout<<"Верно";else cout<<"Не верно";
}
если на паскале тольок вместо % ставите mod и вместо cout write
и в скобках а так в принципе все
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int arr[100],n,k;
scanf("%d",&n);
k=0;
for(int i=0;i<n;i++)
scanf("%d",&arr[i]);
for(int i=0;i<n;i++)
if(i==0 && arr[i]>arr[i+1])k++;
else
if(i==n-1 && arr[i]>arr[i-1])k++;
else
if(arr[i]>arr[i-1] && arr[i]>arr[i+1])k++;
printf("%d",k);
return 0;}