=ЕСЛИ(A1>A2;"Второй старше";ЕСЛИ(A1=A2;"Одного возраста";"Первый старше"))
Var a,b,c,d:integer;
x1,x2:real;
begin
readln(a,b,c);
d:=(b*b) - (4*a*c); writeln(d);
if d < 0 then writeln('корней нет');
if d = 0 then begin writeln('один корень'); x1:=-b/(2*a); writeln(x1:0:3); end;
if d > 0 then begin writeln('два корня'); x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln(x1:0:3,x2:0:3); end;
end.
На java прикрепил на всякий пожарный, 450 строк где-то, в оригинале 907
Это выводит в какой по номеру день опаздало наибольшее количество учеников (1-пн, 2-вт и т.п.)
1*1024*1024*8 = 8388608 бит - объём видеопамяти.
По формуле,
Iп=x*y*i
8388608=1920*1080*x
x=8388608:1920:1080
x = ~4,05 = 4 бита - глубина цвета, а значит,
2^4 = 16 различных цветов - максимально можно использовать.
const N=5;
var a:array [1..N] of integer;
i:integer;
s:string;
BEGIN
for i:=1 to N do
read(a[i]);
s:='';
for i:=N downto 1 do begin
while a[i]>0 do begin
s:=s+a[i] mod 10;
a[i]:=a[i] div 10;
end;
write(s,' ');
s:='';
end;
end.