Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
Первая задачка
int X, Y;cout << "Введите X" << endl;cin >> X;count << endl;while(Y > 0){ Y--; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}while(Y < X*10){ Y++; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}
<span>(а+b)/c=a/c+b/c</span>
<span>a+b/c+d=a/c+d +b/c+d</span>
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.