Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
1.внешней
2.памяти
3.телефоне
4.файлов.
Это же так просто .
1) 32х32=1024 пикселей
16 градаций уместится в 4 битах (2^4=16)
1024х4=4096 бит = 512 байт = 0,5 кбайт
2)512х256=131072 пикселей
64КБ=65536 Байт = 524288 бит
524288/131072=4 бита на пиксель
2^4=16 цветов в изображении
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
1)pascal
2)C++
3)ассемблер
4)python
5)java три последних посмотрел по интернету но вроде всё сходится