Найди лишнее десятичное чило и зачеркни.23,53,73,37,83.17,20,21,37,9940,44,48,88,42
Kulebakin
1 лишнее число-37 2 лишнее число-99 3 лишнее число-88
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Http://inflib.ru/index2.php?id=1128&Itemid=25&option=com_content&page=0&pop=1&task=view
Const N = 10;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] mod 2 = 0) then
A[i] += 2
else
A[i] := 0
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.