Program Program1; var a1,a2,a3,a4, x, y:real; begin writeln('Введите значение x'); readln(x);a1:=4/(13*x);a2:=a1/x;a3:=a2/x;a4:=a3/x;y:=a1+a4;writeln('Y= ',y);end.
procedure MatrA(var a: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end;
procedure MatrB(var b: mass); var i, j: integer; begin for i := 1 to n1 do for j := 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end;
procedure Sum(a, b: mass; var c: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do c[i, j] := a[i, j] + b[i, j]; end;
begin writeln('Введите n,m матрицы A'); readln(n, m); MatrA(a); writeln('Введите n,m матрицы B'); readln(n1, m1); MatrB(b); if (n1 <> n) and (m1 <> m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c); writeln('A+B'); for i := 1 to n do begin for j := 1 to m do write(c[i, j]:1:3, ' '); writeln end end; readln; end.
1. Короткое решение для числа произвольной длины (на символьной строке)
var s:string; c:char; begin Write('Введите натуральное число: '); Readln(s); Write('введите искомую цифру: '); Readln(c); if Pos(c,s)>0 then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 4 Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var s,c:integer; brk:boolean; begin Write('Введите натуральное число: '); Read(s); Write('введите искомую цифру: '); Read(c); brk:=false; repeat if s mod 10=c then brk:=True; s:=s div 10 until brk or (s=0); if brk then Writeln('Такая цифра в числе есть') else Writeln('Такой цифры в числе нет') end.
Тестовое решение Введите натуральное число: 43543232 введите искомую цифру: 6 Такой цифры в числе нет
var a1,a2,a3,a4, x, y:real;
begin writeln('Введите значение x'); readln(x);a1:=4/(13*x);a2:=a1/x;a3:=a2/x;a4:=a3/x;y:=a1+a4;writeln('Y= ',y);end.