Введя данный код в турбо Паскаль был дан ответ: 51
Const
n = 5;
var
arr: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
max := 1;
for i := 1 to n do
if (max < arr[i]) and (arr[i] mod 5 = 0) then
max := arr[i];
if max = 1 then
writeln('No')
else
writeln(max);
end.
<span>var </span><span> a,b,c,D,x1,x2:real; </span>
<span>begin</span>
<span>readln(a,b,c);</span>
<span>D:=b*b-4*a*c;</span>
<span>if D<0 </span><span>then Writeln('Только комплексные корни')</span>
<span>else </span>
<span>begin</span>
<span>d:=sqrt(d);</span>
<span>x1:=(-b+d)/(2*a);</span>
<span>x2:=(-b-d)/(2*a);</span>
<span>WriteLn('x1=',x1);</span>
<span>WriteLn('x2=',x2);</span>
<span>end; </span>
<span>end.</span>
На каком именно языке программирования вы не написали!
Я решил задачу на паскале. Какие условия вы мне дали, с такими я и сделал.
program easy;
var
a,b,i:string;
begin
a:= 'Новый год';
b:= 'Женский день';
writeln('Введите дату');
read(i);
if i = '0.10.1' then
writeln(a);
if i = '0.80.3' then
writeln(b);
end.