Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4
#include <stdio.h>
#include <math.h>
int main(void) {
double a = -3.0, b = 5, h = 0.5;
double x, avg = (a + b) / 2.0; // сразу один раз вычисляем среднее арифметическое
for (x = a; x < b; x += h) { // цикл по точкам x
if (x < avg) {
printf ("x=%-4.1f, f(x)=%f\n", x, sin(x));
}
else {
printf ("x=%-4.1f, f(x)=%f\n", x, cos(x*x));
}
}
return 0;
}
Uses
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
<u>Тестовое решение:</u>
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14
Var
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.