Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin p:=(a+b+c)/2; gero:=p*(p-a)*(p-b)*(p-c);end;begin write('Введите A'); readln(a); write('Введите B '); readln(b); write('Введите C'); readln(c); writeln(gero(a,b,c)); readkey;end.
1) 7 - изза начального присвоение m
2) 994. 4 соответствует условию, остальные числа лишь максимизируют число
3)
var
N, d, m: longint;
begin
readln(N);
{m := N mod 10; ошибочная строка}
m:=-1; {N mod 10 - может не удовлетворять условию, 0 - может и удовлетворять условию }
while N > 0 do
begin
d := N mod 10;
if d < 5 then
if d > m then m := d;
N := N div 10;
end;
{if m = 0 then ошибочная строка}
if m = -1 then {если в цикле m так не разу и не поменялась}
writeln('NO')
else writeln(m);
end.
Может информатика?Информатика — это фундаментальная естественная наука, изучающая процессы передачи и обработки информации.
<span> ИНФОРМАТИКА - научная дисциплина, изучающая структуру и общие свойства научной информации, а также закономерности всех видов научной коммуникации. </span>
Файл с расширением XLS содержит электронную таблицу. Это расширение программы Excel
Программа на Pascal:
var c: integer;
begin
writeln('Введите число C');
readln(c);
if c<>0
then writeln('Не равно 0')
else writeln('Равно 0');
end.