Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.
Так понимаю, требуется вывести на экран последнюю цифру числа А. Обе программы верны. Различия лишь в том, что в первой программе мы создаём отдельную переменную, в которую записываем последнюю цифру числа а; а во второй программе мы просто меняем значение переменной а, записывая в нее последнюю цифру числа (ничего не изменилось, просто не пользуемся лишними переменными).
1) ((5*sqr(x) + 4)/(7*x - 2)) + 2 * sqrt(x);
2) sqrt((a + sqr(b))/(5 * a * b)) + abs(2*a - b);
54 символа
1 символ=1байт=8 бит
54*8=432бит
Я пошёл в школу-истинное.Я не пошёл в школу-ложное.